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COURSE DESCRIPTION 
F15D Multics Subsystem Programming 



Duration: 
Intended For 

Synopsis: 



Objectives: 



Five Days 

Advanced Multics PL/I programmers, familiar with standard 
Multics subroutines, who' need to use advanced Multics 
subsystem writer's tools » 

This intensive course describes how to bypass, replace, 
or supplement the standard Multics user interface by 
using system subroutines. Interprocess communication, 
tailoring the command environment, the message segment 
facility, the Multics ring mechanism, writing gates, 
dialing terminals to a process and writing I/O modules 
are among the topics covered in this course. 

Interactive workshops are included to reinforce the 
material presented. 

Upon completion of this course, the student should be 
able to: 



Prerequisites: 



Major Topics: 



Manuals: 



1« Use subsystem writer's subroutines. 

2. Use a wide variety of facilities to create an 
environment tailored to the needs of a particular 
group of users, 

3. Understand the conventions compilers should follow 
when creating object segments. 

4. Understand how gates and I/O modules are written. 

Multics Concepts and Utilization (FOI), Prerequisite 
Concepts for Programming on Multics (FID), Introductory 
Multics PL/I Programming (F15A), Advanced Multics PL/I 
Programming (F15B), PL/I Programming with Multics 
Subroutines (F15C) or equivalent experience. 

Writing I/O Modules 

Interprocess Communication, Locking, and Timers 

Advanced hcs_ Utilization 

Program Library Management 

Tailoring the Command Environment 

Dialing Terminals to a Process 

Message Segment Facility 

Rings and Gate Writing 

Data Segments, Temporary Segments 

Creating an Error Table 

MPM - Subsystem Writers' Guide (AK92) 
SDN - Message Segment Facility (AN69) 
PLM - Library Maintenance (AN80) 



F15D 



F15D TOPIC MAP 



DAY 


MORNING TOPICS 


• AFTERNOON TOPICS 


1 


SUBSYSTEM WRITING 
STORAGE SYSTEM SUBROUTINES 


STORAGE SYSTEM SUBROUTINES 
(CONTINUED) 

WORKSHOP #1 


2 


WORKSHOP #1 (CONT) 
MULTICS SECURITY 


THE COMMAND ENVIRONMENT 
WORKSHOP #2 


3 


ADVANCED) MULTICS I/O 

WRITING I/O MODULES 
WORKSHOP ^3 


INTERPROCESS COMMUNICATION 
WORKSHOP #4 


i| 


INTERPROCESS DATA BASE SHARING 
INTRAPROCESS TIMER MANAGEMENT 

WORKSHOP #5 


THE STACK AND ARGUMENT LISTS 
SPECIAL PROGRAMMING TECHNIQUES 

WORKSHOP #6 


5 


THE' PROCESS ENVIRONMENT 

WORKSHOP # 7 
- - DIAL FACILITY 


DIAL FACILITY DEMONSTRATION 

MESSAGE SEGMENT FACILITY 

PROGRAM LIBRARY MANAGEMENT 
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STUDENT BACKGROUND 
Multics Subsystem Programming (F15D) 

NAME; PHONE: 
TITLE: ■ 

COMPANY ADDRESS: 



MANAGER: ^ OFFICE PHONE: 

INSTRUCTOR'S NAME: . ' 

1e Do you meet the prerequisite as stated in the "Course Description" 
of the student text? If yes, check "a" or "b". 
If no, check "c" or "d". 

a [ 3 Prerequisite satisfied by attending course indicated in "Course 
Description". 

b [ ] Meet prerequisite by equivalent experience (explain briefly) 



c [ 1 Elected or instructed to attend course anyway, 
d [ ] Was not aware of prerequisite. 

2. What related Honeywell courses have you attended? Furnish dates 
and instructors if possible. 



(PLEASE TURN OVER) 
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Multics 



STUDENT BACKGROUND 
Subsystem Programming 



(F15D) 



Check the boxes for which you have any related experience. (May 
be other than Honeywell's) 

[ 3 PL1 CI COBOL [ 3 FORTRAN C 3 ASSEMBLY 

C 3 JCL [ 3 OPERATIONS [ 3 GCOS C 3 MULTICS 

[ 1 NPS [ 3 CRTS [ 3 CP6 C 3 OTHER 



Detail any experience you have had which is related to the 
material in this course. 



Objectives for attending this course (May check more than one). 

[ 3 Require information to provide support for a Miotics- system 

[ 3 To maintain an awareness of this product 

[ 3 To evaluate or compare its potentials 

[ 3 Required to use or implement 

[ 3 Need update from a previous release 

C 3 Require a refresher 

C 3 Other: ' 
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HONEYWELL MARKETING EDUCATION 
COURSE AND INSTRUCTOR EVALUATION FORM 



INSTRUCTOR 
COURSE 

START DATE ____________ 

LOCATION 

STUDENT NAME ' (OPTIONAL) 

In the interest of developing training courses of M-gh -quality, 
and then improving on that base, we would like you to complete 
this questionnaire. Your information will aid us in making 
future revisions and improvements to this course. Both the 
instructor and his/her manager will review these responses. 

Please complete the form and return it to the Instructor upon the 
completion of the course. In questions 1 through 14, check the 
appropriate box and feel free to include additional comments. 
Attach additional sheets if you need more room for comments. Be 
objective and •concrete' in your comments — be critical when 
criticism is appropriate. 
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Considering the stated objectives of this course, rate the overall 
length of the course. 

CAN'T TOO ABOUT TOO 

JUDGE SHORT RIGHT LONG 

OZI I 1 I g I ^ t ^ I I $ t 7 t 8 I 9 I 

COMMENTS . 



Considering the objectives, rate the technical level at which the 
course was taught. 

NOT 

CAN'T TECH ABOUT TOO 

JUDGE ENOUGH RIGHT TECH 

CO t 1 I ? t ^ I ^ t I ^ I 7 I ft t 9 3 

COMMENTS 



Considering the objectives, rate the emphasis placed on the more 
important topics. 

CAN'T 

JUDGE POOR - _1 _ GOOD EXCELLENT 

ca ' ^ ' ^ » ^ « " ' « 1 7 I « I qH 

COMMENTS 



Rate the sequence in which the topics were presented. 
CAN'T 

£jUj)CE POOR GOOD EXCELLENT 

CO I ^ i 2 I ^ i n I ^ I 6 i 7 i ^ i Q y 

COMMENTS 
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Rate the format and quality of the learning materials (slides, 
student handbooks, supplementary handouts, etc.). 



CAN»T 

JUDGE POOR GOOD EXCELLENT 

CO ' ^ « ^ » ^ ' ^ « 6 I 7 I 8 I Q i 

COMMENTS 



Rate the amount of time given for the completion of the workshops. 

TOO TOO 
CAN'T LITTLE ABOUT MUCH 

JUDGE TIME RIGHT TIME 

CO 1 1 I 2 I ^ 1 4 1^ t 6 t 7 I § I 9 3 

COMMENTS ■ ■ • 



Rate the workshops* ability to relate back to and reinforce the 
material presented. 

CAN'T 

JUDGE POOR GOOD EXCELLENT 

CO I 1 I 2 I V I ^ I I ^ I 7 t i? I 9 I 

COMMENTS 



Rate the physical condition of the classroom (space available, 
temperature, lighting, etc«). 

CAN'T 

-JUDGE POOR GOOD EXCELLENT 

I ft t I 1 I p I ^ I ^ i t fi I 7 I ft I a_J 

COMMENTS . ' 
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9. Rate the physical condition of the lab or workshop room, (systems 
configuration, space available, learning tools, terminals, tables, 
etc.). 



CAN'T 

JUDGE POOR GOOD EXCELLENT 

CO I 1 t 2 I ^ t 4 I g I 6 t 7 t 8 t 9 t 

COMMENTS 



10. Rate your Instructor's demonstrated knowledge of the course material. 



CAN'T 

JUDGE POOR GOOD EXCELLENT 

ro~1 I 1 t 2 I ^ I ^ I *7 r ^ I 7 I ft t 9 I 

COMMENTS 



11. Rate your instructor's ability to convey the technical aspects of 
the various topics. 

CAN'T 

JUDGE - POOR ^ GOOD EXCELLENT 

I n I I 1 i 2 i ^ I 4 i S t 6 i 7 i 8 i Q I 

COMMENTS 



12. Rate the classroom and workshop assistance given you by your 
instructor. 



CAN'T 

JUDGE POOR GOOD EXCELLENT 

OZl i 1 I S [ ^ 1 ^ I I ^ t 7 I 9 t 9 I 

COMMENTS 
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13. Rate the instructor's ability to create an environment in which 
you felt free to ask questions. 

CAN'T 

JUDGE POOR GOOD EXCELLENT 

m I 1 I VI ^ 1 ^ I ? I 6 I 7 I ? t 9 I 

COMMENTS 



1M. Rate the relevance of the skills learned in the course with respect 
to your job or further training. 

CAN'T 

JUDGE • POOR GOOD EXCELLENT 

m I 1 I 2 M I 1^ I ^ I ^ I 7 I 

COMMENTS 



15- What did you like most about this course? 



16. What did you like least about this course? 
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17. Other comments please: 



18- Of the following job categories, check the ones which most nearly 
represent the bulk of your experience, and to the right of your 
responses indicate the number of years you have acted in that 
capacity » 



E 3 Applications Programmer. . . • ' years 

[3 Field Engineering Analyst, • • years 

. [] Manager. . , years 

E3 Marketing Analyst. • . . . . . years 

C3 Salesperson. • years 

C3 Secretary. ........ . . ■ years 

Ej Systems Analyst, ' years 

E3 Systems Programmer ...... years 

E3 Other. .... . . . . . . . years 



Please give "other" title 
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Subsystem Writing 
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INTRODUCTION 



• k BASIC GOAL OF THE Multics SYSTEM DESIGN PHILOSOPHY: 

TO PROVIDE A SYSTEM WHICH IS OPEN-ENDED AND CAPABLE OF SUPPORTING 

USER DESIGNED SUBSYSTEMS 

B TO ACHIEVE THIS, Multics 

0 HAS BEEN HIGHLY MODULARIZED 
S FUNCTIONALITY LOCALIZED 

B COMPLEXITY OF ANY GIVEN MODULE MINIMIZED 

Q IS MOSTLY WRITTEN IN PL/I 
Q MORE EASILY READ THAN ALM 

0 ENABLES ADOPTION OF SUBSYSTEMS FROM OTHER MACHINES USING 
PL/I 

B FEATURES A WEALTH OF TOOLS TO HELP DESIGN, IMPLEMENT, AND 
MAINTAIN SUBSYSTEMS 

• THIS COURSE IS DESIGNED TO: 

B INTRODUCE MOST TOPICS COVERED IN THE SUBSYSTEM WRITERS* GUIDE 
(SWG) 



B COVER IN DETAIL SEVERAL ADVANCED TOOLS AND TECHNIQUES OFTEN USED 
IN WRITING SUBSYSTEMS. 

B PROVIDE INSIGHT INTO HOW TO WRITE SUBSYSTEMS "THE Multics WAY" 



Not To Be Reproduced 
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TERMINOLOGY 



• A SUBSYSTEM CAN BE DEFINED A VARIETY OF WAYS: 



Q A "SYSTEM" WHICH OPERATES WITHIN THE CONFINES OF ANOTHER, LARGER 
SYSTEM 



0 PROGRAM(S) THAT PROVIDE A SPECIAL ENVIRONMENT FOR SOME PARTICULAR 
PURPOSE 



Q PROGRAM(S) THAT PROVIDE A NUMBER OF OPERATIONS ON SOME RESTRICTED 
UNIVERSE OF DATA 

• EXAMPLES OF STANDARD Multlcs SUBSYSTEMS: qedx, ted, emacs, calc, 
probe > read_mail, send^mail, help, itSStS^^ 

m A SUBSYSTEM IS SAID TO BE CLOSED IF: 

B ALL NECESSARY OPERATIONS CAN BE HANDLED WITHIN THE SUBSYSTEM 

Q NO WAY EXISTS TO USE THE NORMAL MULTICS ENVIRONMENT FROM WITHIN 
THE SUBSYSTEM 

0 EXAMPLE: THE 'fast' SUBSYSTEM 
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DESIGN CONCERNS 



• HAS THE PROBLEM ALREADY BEEN SOLVED? 

• SECURITY 

Q IS SUBVERSION A REAL CONCERN? 

8 WILL ACL ALONE SUFFICE, OR MUST WE RESORT TO RINGS AND AIM? 
Q CLOSED SUBSYSTEM? 

• HOW SHALL WE INTERFACE WITH THE STORAGE SYSTEM? 

TEMPORARY SEGS 
AREAS 

PERMANENT SEGS, MSFs 

NAME AND ADDRESS SPACE MANAGEMENT 

USE MULTICS I/O SYSTEM? 



• WILL PROCESSES NEED TO COMMUNICATE WITH EACH OTHER? 



Not To Be Reproduced 
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DESIGN CONCERNS 



# DOES THE SUBSYSTEM HAVE A "MULTICS FLAVOR"? 



• DOCUMENTATION 



• SUBSYSTEM LIBRARY MAINTENANCE 



Not To Be Reproduced 



CAPABILITIES FOR SUBSYSTEM DESIGN IN MULTICS 

• THE OPPORTUNITIES FOR SUBSYSTEM DESIGN IN Multics ARE VIRTUALLY 
UNLIMITED, AND THE SUBSYSTEM DESIGNER MAY: 

Q MODIFY THE COMMAND INTERFACE TO THE Multics STORAGE SYSTEM 
Q MANIPULATE THE ADDRESS SPACE OF A USER PROCESS 
e MODIFY THE COMMAND ENVIRONMENT OF A USER PROCESS 
Q WRITE COMMAND AND/OR ACTIVE FUNCTION PROCEDURES 
B WRITE A COMMAND PROCESSOR PROCEDURE 

0 HANDLE CONTROL COMMUNICATION BETWEEN ANY NUMBER OF ASYNCHRONOUS, 
COOPERATING PROCESSES 

S CONTROL CONCURRENT ACCESS TO CRITICAL, SHARED DATA BASES 

fl USE TIMERS 

§ INTERFACE NEW I/O DEVICES, MONITOR EXISTING I/O DEVICES, ETC. 

Q MODIFY, RESTRICT, OR REPLACE ENTIRELY THE PROCESS ENVIRONMENT 



Not To Be Reproduced 



1-5 



F15D 



CAPABILITIES FOR SUBSYSTEM DESIGN IN MULTICS 



B DIAL TERMINALS TO A PROCESS, OR ALLOW A PROCESS TO DIAL OUT TO A 
TERMINAL 



B WRITE GATES 



Q MANIPULATE MESSAGE SEGMENTS 



Q CREATE, UPDATE, AND IN GENERAL, MAINTAIN PROGRAM LIBRARIES 
S AND MANY, MANY OTHER THINGS 



Not To Be Reproduced 
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SUBSYSTEM DESIGN TOOLS 



• TO ACHIEVE SOME OF THE SUBSYSTEM DESIGN TASKS MENTIONED ABOVE, THE 
DESIGNER HAS AVAILABLE A WIDE VARIETY OF RESOURCES INCLUDING: 

Q COMMANDS AND SUBROUTINES 

0 SOURCE PROGRAMS 

B WHOSE PERUSAL SHOWS THE DESIGNER HOW Multics DOES IT 

B WHICH MAY BE COPIED AND MODIFIED TO YIELD CUSTOMIZED BEHAVIOR 

B PL/1 AND ALM INCLUDE FILES 

Q PROGRAM LIBRARY MAINTENANCE TOOLS 

B EXPEDITE ACCESS TO SYSTEM SOURCE, OBJECT AND INFO SEGMENTS 

B MAINTAIN USER SUBSYSTEM LIBRARIES JUST AS THEY MAINTAIN THE 
Multics LIBRARIES THEMSELVES 



Not To Be Reproduced 
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STORAGE SYSTEM SUBROUTINES 



• TOPICS 2, 3 AND 4 PRESENT THE SOFTWARE WRITERS' GUIDE (SWG) SUBROUTINES 
USED IN MANIPULATING THE STORAGE SYSTEM 



• THE FOLLOWING LIST PROVIDES A COMPARISON OF THE STORAGE SYSTEM 
MANIPULATING SUBROUTINES COVERED IN F15C AND F15D 



D EXCEPT WHEjffE NOTED F15C SUBROUTINES ARE DOCUMENTED IN THE 
SUBROUTINE MANUAL (AG93) AND F15D SUBROUTINES ARE DOCUMENTED IN 
THE SWG UK92) 



Not To Be Reproduced 
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STORAGE SYSTEM SUBROUTINES 



F15C 


F15D 


CREATING STORAGE SYSTEM ENTITIES 


hcs $append_branch 
he s_$ append^br an chx 
hcs_$append_link 
hcs_$create_branch_ 
he s_$make^seg 




DELETING STORAGE SYSTEM ENTITIES 


delete 

hcs $delentry_f ile 

hcs $delentry seg 

hcs $del dir tree (AK92) 




OBTAINING STATUS INFORMATION 


hes_$status_ 
hcs__$status_long 
hes_$status_minf 
hcs_$3tatus_iBins 


hcs_$get_author 
he s__$ g e t_b e_au t ho r 
hes_$get_link target 
hcs $get inaX"^ Tength 
hcs~$get~max~length seg 
hcs_$get_safety_sw 
hcs_$get_safety_sw_seg 
(hcs_$set__max_length) 
( h e s_$ se t__m a x_l e ng t h_seg ) 
(hcs_$set_safety_sw) 
( hcs_$ set^saf ety_sw_seg ) 



Not To Be Reproduced 
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STORAGE SYSTEM SUBROUTINES 



F15C 




WORKING, DEFAULT, AND PROCESS DIRECTORIES 


change wdir 

get deTault~wdir_ (AK92) 
get_pdir_ " 
get_wdir_ 




MANIPULATING THE ADDRESS AND NAMi 


: SPACES 



ho s_$ f s_get_path_name 

he s_$f s_get__ref_name 

hcs_$f s_get_seg_ptr 

hcs_$ initiate 

hcs $initiate_count 

hcs~$make_seg 

hcs_$terminate_f ile 

hcs_$terminate^name 

hcs^$terminate_noname 

he s_$terminate_seg 

term__$refname 

term__$seg_ptr 

term_$single_refname 

teriD_$term_ " 

term $unsnap 



MULTISEGMENT FILES 



msf_manager_$acl_add 
msf_inanager_$acl_delete 
msf_manager_$acl_list 
ms f__man ag er3$ acl_r epl ace 
msf^manager_$ad just 
msf~fflanager_$close 
msf__manager_$get_ptr 
msf manager $open 
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F15C 


F15D 


NAMING AND MOVING DIRECTORY ENTRIES 


hcs $chname_file 
hcs~$chname_seg 

he s__$ f s__mo V e_ f i 1 e 
has $f s__move_seg 




AFFECTING LENGTH OF ENTRIES 


ad j u s t^b i t_co un 
hcs__$set_bc 
hcs_$set_bc_seg 
he s__^$ tr un c a t e_f i 1 e 
hcs_$truncate_seg 




MANIPULATING PATHNAMES 


absolute_pathname_ 
absolute_pathname_$add_suf f ix 
expand_pathname_ 
expand__pathnsase_$add_suffix 




MANIPULATING THE STAR AND EQUAL CONVENTION 


1 » 


check_star^name_ 
get equal_Jname_ 

hcs_$star__ 
match_star_name_ 



Not To Be Reproduced 



1-11 



F15D 



STORAGE SYSTEM SUBROUTINES 



F15C 


F15D 


AREAS 


get_system_free_area_(AK92) 


area_info_ 
area status • 
erea'Ee^area * 
define_area_ 
release area 
set_sys'^em_s¥orage * 
set^user^storage • 


SECURITY 


get group id 

get group id_$tag star 

he s_$ add_acl_entrTe s 

hes $add dir acl entries 

hes idelete ael^entries 

hcs_$delete_dir_^acl_^entries 

hcs $fs get mode " 

hes_$list_acl 

he s_$ 1 i st~d ir^ael 

hes_$replaee_Jael 

hes^replaee^dir^acl 


cross ring 

eross_ring_io_$allow_eross 
eu_$level_;^get (AG93) 
cu"*$level "set tAt*93) 
gel.ringj" 

hes3$add_dir_inacl_entries 

he 8^$ ad d]2i n a c l_en t r i e s 

hcs_$delete_dir_inacl_entries 

hes^$delete_inacl_entries 

he 3"$ get dir ring brackets 

he s_$ get jr i ng_br acke t s 

he s_$ g e t_u s e r_e f f mod e 

hes $list dir"*inael entries 

hes^list^inacl 

hes_$replace_dir_inael 

hcs $replace_inael 

hcs_$set_dir3ring_braekets 

hcs_$set__entry_bound 

hcs''$set_^entry bound seg 

hes^$set""ring Sracke'Es 



» COMMANDS (INCLUDED FOR COMPLETENESS) 



Not To Be Reproduoed 
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TOPIC II 
Storage System Subroutines 
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OBTAINING STATUS INFORMATION 



he s_$ get^author 

B call hcs_$get_author (dir^name, entryname, chase, author, code); 



0 RETURNS Personid.Projectld.tag OF THE CREATOR OF A SEGMENT, 
DIRECTORY, MULTISEGMENT FILE OR LINK 



• hcs_$get_bc_author 

Q call hcs_$get__bc_author (dir^name, entryname, bc^author, code); 



RETURNS Personid.Projectld.tag OF THE BIT COUNT AUTHOR OF A SEGMENT 
OR DIRECTORY 

Q BIT COUNT AUTHOR = LAST PERSON WHO SET THE BIT COUNT 
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OBTAINING STATUS INFORMATION 

• hcs_$get_max_length, hcs_$get_max_length__seg 

Q call hcs_$get_max_length (dir_name, entryname, max^length, code); 

Q call hcs_$get_max_length_seg (seg^ptr, max^length, code); 

B RETURNS THE MAXIMUM LENGTH (IN WORDS) OF A SEGMENT, DIRECTORY OR 
LINK TARGET 

Q SUBROUTINES THAT CAN CHANGE THE MAXIMUM LENGTH OF A SEGMENT 
• 8 hcs_$set_max_length, hcs_^$set__max_length_seg 
8 SAME CALL ARGUMENTS AS ABOVE 

8 A DIRECTORY CANNOT HAVE ITS MAXIMUM LENGTH CHANGED 

0 ONCE MAX LENGTH HAS BEEN SET, AN out of bounds FAULT OCCURS 
WHEN REFERENCING BEYOND END OF SEGMENT" " 

8 MAXIMUM LENGTH IS SET IN UNITS OF 1024 WORDS 

8 REQUESTED LENGTH MAY NOT EXCEED sys_info_$ffiax_seg_si2€ 

8 CANNOT USE TO SHORTEN SEGMENT 

8 DEFAULT MAX LENGTH OF A SEGMENT IS 255K 

8 stack 4 HAS INITIAL MAX LENGTH OF 64K 
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OBTAIN ING STATUS INFORMATION 

• hcs_$get_safety_sw, hcs_$get_safety_sw_seg 

Q call hcs_$get_safety_sw (dir^name, entryname, safety_sw, code); 

S call hcs_$get_safety_sw_seg (seg_ptr, safety_sw, code); 

D RETURNS THE VALUE OF THE SAFETY SWITCH OF A DIRECTORY OR SEGMENT 

B SUBROUTINES THAT CAN CHANGE THE VALUE OF THE SAFETY SWITCH: 
Q hcs_$set_safety_sw, hcs_$set_safety_^sw_^5eg 
fl SAME CALL ARGUMENTS AS ABOVE 

• hcs_$get_link_target 

B -call hcs_$get_link_target (dir_name, entryname, link_dlr__naine, 
" link^entryname, code); 

B RETURNS THE TARGET PATHNAME OF A LINK 



Not 
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OBTAINING STATUS INFORMATION 



• ON THE FOLLOWING PAGES IS AN EXAMPLE USING SOME OF THE SUBROUTINES 
PROVIDING STATUS INFORMATION 

B IT ALSO SERVES AS A REVIEW OF SOME ITEMS INTRODUCED IN F15C 
D WRITING A COMMAND 
1 USING ioa_ AND com_err_ 

8 IN YOUR FIRST WORKSHOP YOU WILL BE ASKED TO ENHANCE THIS PROGRAM 
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OBTAINING STATUS INFORMATION 



STATUS: proc; 

del cu__$arg__count entry (fixed bin), 

cu_$arg_ptr entry (fixed bin. ptr. fixed bin, fixed bin (35)) > 
hcs $status_minf entry (char (•), char (*), fixed bin (1), 
fixed bin (2), fixed bin (24), fixed bin (35)), 

hcs_$get_safety_sw entry ( char (*), char (*) ,b it (1), fixed bin (35)), 
hcs $get max length entry (char (*), char (*), fixed bin (19), 

fixed bin (35)), 

hcs $get author entry (char (*) , char (*), fixed bin (1), char (*), 

" " fixed bin (35)), 

expand_pathname_ entry (char(*) , char (*) ,char(*) , fixed bin (35)), 
(ioa_, com_err ) entry options (variable); 
del nargs fixed bTn; 
del argl fixed bin; 
del argp ptr; 

del arg char (argl) based (argp); 
del dir char (168); 
del entry char (32); 
del code fixed bin (35); 
del type fixed bin (2), 

be fixed bin (24), 

author char (32), 

max length fixed bin (19), 

safety sw bit (1 ) , 

ME char (6) static init ("STATUS") options (constant); 
del error_table_$wrong_no_of_args ext fixed bin (35); 

/» VERIFY NUMBER OF ARGUMENTS »/ - - 

call cu__$arg_count (nargs); 

if nargs 1 then do; - 
call eom_err_ (error_table_$wrong_no_of_args, ME); 
return; 

end; 

/» PROCESS SEGMENT NAME ARGUMENT */ 

call eu_$arg_ptr (1, argp, argl, code); 

call expand_pathnarae (arg, dir, entry, code); 

if code '^s 0 then caTl ERROR; 

/»,FIND OUT WHAT TYPE OF BRANCH IT IS »/ 

call hcs $status_minf (dir, entry, 0, type, be, code); 
if code "^s 0 then call ERROR; 



Not To Be Reproduced 



2-5 



Pi CT\ 

4 I JU 



OBTAINING STATUS INFORMATION 



/* TELL THE USER */ 

if type s 2 & be ''s 0 then 

call ioa_ ("*a is a ''i component multisegment file", 
entry, be); 
else call ioa ( 

"^a is a ^Tlink''; segment; directory* 3 
'"[with bit count "i";"s"3"» 
entry, type+1 , (type = 1), be); 

/» GET OTHER INFORMATION AND REPORT IT TO THE USER »/ 

call hes $get_author (dir, entry, 0, author, code); 
if code 0 then call ERROR; 

call hes $get_max_length (dir, entry, max length, code); 

if code 0 then call ERROR; " 

call hes $get safety sw (dir, entry, safety sw, code); 

if code 0 "Ehen call ERROR; " 

call ioa_ (" It was created by *a, 

it has a max length of ''i, 
and the safety switch is *Con*;off*] , 
author, max_length, safety^sw); 
ERROR: proc; 

call com_err_ (code, ME); 
goto FINISH;^ 
end ; (f 

FINISH: end STATUS; 
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OBTAINING STATUS INFORMATION 



! STATUS STATUS. pl1 

STATUS, pi 1 is a segment 

with bit count 23256 
It was created by NDibble.MEDmult.a, 

it has a max length of 261120, 
and the safety switch is off. 



! STATUS < 

NDibble is a directory 

It was created by Initializer .SysDaemon.z, 
it has a max length of 65536, 
and the safety switch is on« 



ISTATUS test^file 

test_file is a 2 component multisegment file 
It was created by NDibble. MEDmult. a, 
it has a max length of 65536, 
and the safety switch is off* 



Ilk >udd>F15D>s1 blurp 

•STATUS blurp 
blurp is a link 

It was created by NDibble .MED. a, 

it has a max length of 65536, 
and the safety switch is off* 



!sml STATUS. pll 40960 



ISTATUS STATUS. pll 

STATUS .pll is a segment 

with bit count 23292 
It was created by NDibble .MEDmult. a, 
it has a max length of 40960, 
and the safety switch is off* 



! STATUS *» 

STATUS: Entry not found. 
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MULTISEGMENT FILES 

• MULTISEGMENT FILES ARE: 

a FILES THAT USE MORE THAN ONE SEGMENT FOR STORAGE 

D COMPOSED OF ONE OR MORE COMPONENTS , EACH IS A SEGMENT, AND IS 
IDENTIFIED BY AN UNSIGNED INTEGER 

Q VIEWED BY MANY MULTICS SUBROUTINES AS DIRECTORIES 

B USED FOR LARGE LISTINGS, INDEXED FILES, ETC. 

Q MANAGED BY THE msrmanager^ SUBROUTINE 

• MANIPULATING A MULTISEGMENT FILE REQUIRES USE OF A MULTISEGMENT 
FILE CONTROL BLOCK 

0 THE CONTROL BLOCK FOR A MULTISEGMENT FILE IS CREATED AND MAINTAINED 
BY THE msf manager IN THE USER'S PROCESS DIRECTORY 



• LOCATIONS IN A MULTISEGMENT FILE ARE SPECIFIED BY A PATHNAME, COMPONENT 
NUMBER AND WORD OFFSET WITHIN THE COMPONENT 
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MULTISEGMENT FILES 

# msf_manager_$open 

D call msf^manager^lopen (dir^name, entryname, fcb_ptr, code); 

Q CREATES A FILE CONTROL BLOCK IN SYSTEM FREE STORAGE AND RETURNS 
A FILE CONTROL BLOCK POINTER 

II THE MSF NEEDN»T EXIST (A FCB IS STILL ALLOCATED) 

D THE fcb_ptr IS USED BY ALL FUTURE CALLS TO msf_manager_ 

• msf_manager_$get_ptr 

B call msf_manager_$get_ptr (fcb_ptr, component, create^sw, 

"~ seg^ptr, be, code); • 

Q RETURNS A POINTER TO A SPECIFIED COMPONENT IN THE MSF 

. D COMPONENT IS AUTOMATICALLY CREATED, IF create^sw = "1"b 

8 IF THE FILE IS A SINGLE SEGMENT FILE AND A COMPONENT GREATER 
THAN 0 IS REQUESTED, THE SEGMENT IS CONVERTED INTO A MSF 
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MULTISEGMENT FILES 



!pr MSF.pll 
MSF: proc; 

del msf manager $open entry (charC*), char(*), 

" ptr, fixed bin(35)); 

del msf manager $get ptr entry (ptr, fixed bin, bit(1), 

" "ptr, fixed binC24), fixed bin(35)); 
del hcs_$initiate entry (charC*), ehar(*), ehar(»), 

fixed bind), fixed bin(2), ptr, fixed bin(35)); 
del code fixed bin (35); 
del (fcb_ptr, seg ptr) ptr; 
del be fixed bin T24); 
del sysprint file; 
del ioa_ entryO options( variable) ; 

call hes_$initiate (">udd>MED>nd>F15D«, "test_file", 
. ^ . . , , 0,0, seg_ptr, code); 

call ioa {"*p*/", seg ptr); 
/* PROBE"BREAKPOINT SET HERE »/ 

call msf_manager_$open (">udd>MED>nd>F15D" , "test_file", 

feb^ptr jcode) ; 

call msf_manager_$get_ptr (fcb_ptr, 0, "0"b, seg_ptr, be, code); 
call ioa_ ("''/Component 0 starts at '^p", seg_ptr); 
call msf_manager_$get_ptr (feb^ptr, 1, "1"b, seg^ptr, be, code); 
call ioa_ ("^/Component 1 starts at seg^ptr); 
end MSF; 

1 create test^file 
!ls test_file 

Segments = 1, Lengths s 0. 

r w 0 test_file 
!MSF 

50310 

Stopped after line 17 of MSF. (level 7) 
!..lrn 503 

503 >udd>MED>nd>F15D>test file 
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MULTISEGMENT FILES 



! continue 

Compcnent 0 starts at 503*0 
Component 1 starts at 50110 

!lrn 503 501 

503 >udd>MED>nd>F15D>test_file>0 
501 >udd>MED>nd>F15D>test_file>1 

lis test_file 
Multisegment-f lies s 1 , Lengths = 1 • 
r w 1 test file 
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• msf_manager_$a<ijust 

Q call msf_manager_$ad just (fcb^ptr, component, be, switch, code); 
1 OPTIONALLY SETS THE BIT COUNT, TRUNCATES AND TERMINATES A COMPONENT 

Q SWITCH HAS 3 BITS 

B IF BIT 1 IS ON THE BIT COUNT IS SET (BIT COUNT OF ALL COMPONENTS 
< component SET TO sys_info$max_seg_slze) 

S IF BIT 2 IS ON THE COMPONENT IS TRUNCATED 

B IF BIT 3 IS ON THE COMPONENT IS TERMINATED 

0 ALL COMPONENTS WITH NUMBERS GREATER THAN THE GIVEN COMPONENT ARE 
DELETED 



• msf_manager_$ close 

0 call msf_manager_$ close (fcb^ptr); 

Q TERMINATES ALL COMPONENTS OF THE MSF, FREES THE FILE CONTROL 
BLOCK, AND SETS fob ptr NULL 
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MULTISEGMENT FILES 



msf manager^ ACL ENTRY POINTS ARE SIMILAR TO hcs_ ACL ENTRY POINTS 



hcs_ 


msf^manager^ 


iisu aci 


acx Xi.Su 


replace^acl 


acl_replace 


add^acl^entries 


acl^add 


delete_acl_entr ies 


acl^delete 
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TEMPORARY SEGMENTS 

• TEMPORARY SEGMENTS 

Q RESIDE IN THE PROCESS DIRECTORY 

0 ARE MANAGED AS A POOL 

S HAVE A NAME OF THE FORM: 

<unique_name> • temp . < seg_^number> 

D ARE HEAVILY USED BY MANY COMMANDS, SUCH AS qedx 

• TEMPSEG POOLING ENABLES THE USE OF THE SAME TEMPSEG MORE THAN ONCE 
DURING THE LIFE OF A PROCESS, RESULTING IN A REDUCED COST TO THE 
PROCESS 

• THE list temp segments COMMAND GIVES DETAILED INFORMATION ABOUT THE 
STATE OF~A PROCESS' TEMPORARY SEGMENT POOL 
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TEMPORARY SEGMENTS 



• FOUR SUBROUTINES MANIPULATE TEMPORARY SEGMENTS: 

0 get^temp^segments^ 

D call get_temp_5egments_ (prograin^name, ptrs, code) | 

Q RETURNS POINTERS TO TEMPORARY SEGMENTS FOR A SPECIFIED PROGRAM 

Q CALLER SUPPLIES 

D NAME OF REQUESTING PROGRAM 

Q AN ARRAY OF POINTERS WHOSE EXTENT EQUALS THE NUMBER OF 
TEMPSEGS DESIRED 

Q SEE ALSO get_teiDp_segment_ 
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TEMPORARY SEGMENTS 



Q release_temp_segments_ 

8 call release_temp_segments_ (prograin^name, ptrs, code); 

fl USED TO RETURN TEMPORARY SEGMENTS TO THE FREE POOL (SO THAT 
THEY MAY BE REUSED, IF DESIRED) 

Q CALLER SUPPLIES 

8 NAME OF PROGRAM "OWNING" THE TEMPSEGS 

Q ARRAY OF POINTERS TO THE TEMPSEGS TO BE RETURNED TO POOL 

B THE TEMPORARY SEGMENTS BEING 'RETURNED' ARE NOT DELETED 

B IF RELEASE IS SUCCESSFUL, POINTERS ARE NULLED 

S ANY- ATTEMPT TO RELEASE TEMPSEGS NOT "OWNED" BY REQUESTOR RESULTS 
IN error_table_$argerr; PASSED POINTERS ARE UNCHANGED. 

Q SEE ALSO release_temp_segment_ 
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TEMPORARY SEGMENTS 



! pr DEM0_TEMP_SEGS.pl1 
DEMO_TEMP_SEGS: proe? 

del get_temp__segments_ entry (char(»), (*) ptr, fixed bin(35)); 
del release_temp_segments_ entry (ohar(*), (*) ptr, fixed bin(35)); 
del error_table_$argerr fixed binC35) ext static; 
del ioa_ entry options (variable); 
del p_array(3) ptr; 
del eode fixed bin(35); 

call get_temp_segments ("requestor^l" , p_array, code); 

call ioa__ ("CHeck the Tollowing tempseg segnos:'*/^(*2x''p'')'» , p^array) ; 

call release_temp_segments_ ("requestor_2'' , p^array, code); 

if code s error_table_$argerr then call ioa_ 

("requestor_2 may not free segments owned by requestor_1 .") ; 

call ioa_ 

("Pointers after a bad call to release_temp_segments are :*'/'*( *2x*p*)" , 
p_array) ; 

call release temp segments ("requestor 1", p array, code); 
end DEM0_TEM7_SEG^; " 



! list_temp segments 

Segments, 11 Free 

! BBB JHmQ JDkmGxW. temp .0315 command_processor 



i DEMO TEMP^SEGS 
Checlc the following tempseg segnos: 

34410 35410 35510 
requestor_2 may not free segments owned by requestor_1 • 
Pointers after a bad call to release temp segments are: 

34410 35410 35510 



! Irn 344 354 355 

344 >process_dir_dir> !BcDBdwpbBBBBBB>!BBBJHmQJGFjKqg. temp. 0344 

354 >process_dir_dir> ! BcDBdwpbBBBBBB> ! BBBJHmQ JkkPMPb . temp . 0354 

355 >process_dir_dir>!BcDBdwpbBBBBBB>!BBBJHmQJkkkWlf.temp,0355 



! list^temp segments 

\1 Segments, 11 Free 

!BBBJHmQJDkmGxW.temp.0315 command processor 
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TOPIC III 
Storage System Subroutines (cont) 
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STAR AND EQUAL cONytNTIOHS 



• MOTIVATION 



0 THE WRITER OF A SUBSYSTEM OR COMMAND MUST DECIDE IF HE WILL 
ALLOW THE USER TO SPECIFY ENTRYNAMES THAT USE THE STAR AND EQUAL 
CONVENTIONS 

D "RECALL THAT ENTRYNAMES USING THESE CONVENTIONS CONTAIN THE 
CHARACTERS "?", OR 

Q THE FOLLOWING SUBROUTINES ARE USED TO PROCESS SUCH ENTRYNAMES 
Q hcs_$star_ 
B get_equal_name_ 
D check_star_name_ 
i match star name 
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• hcs_$star_ 

Q call hcs_$star_ (dir_name, star^name, star_select_sw, area__ptr, 
star^entr y^count , st ardent r y^p tr , star_names_ptr , code); 

fl FOR A GIVEN DIRECTORY, RETURNS AN ARRAY OF ENTRYNAMES THAT MATCH 
A GIVEN STARNAME 

■ 0 star_select_sw DICTATES OPERATION: 

1 - LINK NAMES ONLY 

2 - SEGS AND DIRS ONLY 

(MSF'S COME BACK AS DIRS) 

3 . SEGS, DIRS, AND LINKS 

fl USER PROVIDES AN AREA FaR RETURNED ENTRYNAMES AND RELATED 
INFORMATION 
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STAR AND EQUAL CONVENTIONS 



star_entry_ptr 



type (link) 



nindex 




nnames 


1 


nindex 


1 


type (seg) 


1 


nnames 


2 


nindex 2 


type (seg) 


1 


nnames 


2 


nindex 


4 


type (directory) 


2 


nnames 


1 



6 




name 1 



name_2 
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Iprint Ispll.pH 
Ispll: proc; 

del get_systein_free_area_ entry returns (ptr); 

del hcs $star entry (char (*), char (*), fixed bin (2), 
DtrT fixe^ bin, ptr, ptr, fixed bin (35));, 

del 1 star entries ( star_entry_count) aligned- based. Jester entry^ptr), 
2 type fixed binary (2) unsigned unaligned, ~" 
2 nnames fixed binary (16) unsigned unaligned, 
2 nindex fixed binary (18) unsigned unaligned; 

del star^names (sura (star^entries (*) .nnames)) 

" char (32)^based (star_names_ptr) ; 

del star_entry__count fixed binary, 
star_^entry~ptr pointer, 
star_names_ptr pointer, 
code fixed bin (35), 
ioa_ entry options (variable); 

del (i, j) fiXLed__b_in4_ 

call hes_$star_ (">udd>MED>nd>F15D« , "*».pl1»», 

2, get_system__free_area_ (), star_entry_eount , 
star_entry_ptr , star^names ptr, code); 
call ioa_ ("^i segments match *"*.pl1 s'*/" , 

star_entry_eount) ; 
do i s 1 to star_entry count; 

if star^entries (T) .type = 1 then do; 
do j = star^entries (i) .nindex to 
star_entries( i) .nindex + 
star entries^ i) .nnames - 1; 
call ioa («"["2x"3*a" , 

(j star^entries (i) .nindex), 
star^^names (j)); 

end; 

end; 

"%ftd; 

free star_names_ptr->staf^Ti:amest 
free star_entry_ptr->star_entries; 
end Ispll; 
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STAR AND EQUAL CONVENTIONS 



!lspl1 

13 segments match **.pll: 

decls.incl.pl1 
listen_decls.incl.pll 
listen. pi 1 
put^message . pi 1 
set^ne w__command • pi 1 
command^interceptor .pll 
process_^overseer .pTl 
user_r e "il^i n i t_aHmin_ .pll 
release. pll 

rlcpll 
get_to_cl_.pl 1 
cookie. pll 
bound_prog.pll 
Ispll .pll 

list pll. pll 



OTHER hcs $star RELATED ENTRY POIHTS-RETURN ADDITIONAL INFORMATION 
ABOUT ENTTflES " 



B hcs $star dir list 



fl hcs $star list 



D THESE RETURN INFORMATION SUCH AS WHEN LAST MODIFIED, WHEN LAST 
USED, MODE, RAW MODE, RECORD LENGTH, BIT COUNT, ETC. 
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• get_equal_name_ 



Q call get_equal_naine_ (entryname, equal_name, target^name, code); 



Q CONSTRUCTS A TARGET NAME FROM AN ENTRYNAME AND AN EQUALNAME 



EXAMPLE 

ENTRYNAME 
a.b»c 

abc.def .ghi 



EQUAL NAME 
new.s.s 



TARGET NAME 
new.b.c 
abc.de .5 



check_^star_name_$path 



Q call check_star_name_$path (path, code); 



Q CHECKS THE ENTRYNAME PORTION OF A PATHNAME TO SEE IF IT HAS BEEN 
FORMED ACCORDING TO THE RULES FOR CONSTRUCTING STAR NAMES 



S RETURNED CODES: 

0 - ENTRYNAME VALID BUT ISN*T A STAR NAME 

1 - ENTRYNAME VALID AND IS A STAR NAME 

2 - ENTRYNAME IS **, ».««, OR »».» 
error table $badstar 



Q USED, FOR EXAMPLE, BEFORE CALLING hcs_$star_ 
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STAR AND EQUAL CONVENTIONS 

# check_star_name_$entry 

g call check_star_^name_$entry (entryname, code); 

8 SAME AS check star name $path, HOWEVER, ONLY REQUIRES AN ENTRYNAME 
AS INPUT - - - 

• match_star_name_ 

B call match_star_name_ (entryname, star^name, code); 
IT INDICATES WHETHER OR NOT entryname MATCHES star name 
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AREA MANIPULATIO N 
INTRODUCTION 

• AREAS ARE 

8 STORAGE REGIONS MANAGED BY THE AREA MANAGEMENT FACILITY 

Q OFTEN USED TO PASS INFO BACK AND FORTH BETWEEN USER PROCESSES 
AND THE SUPERVISOR 

8 OFTEN (BUT NOT ALWAYS) FOUND IN PROCESS DIRECTORY SEGMENTS, NAMED 
<unlque> .area. linker 

• WHY USE AREAS? 

0 EMPTYING AN ENTIRE AREA (USING THE 'empty* BUILTIN) IS EASIER 
THAN USING SEVERAL free STATEMENTS 

0 CAN allocate IN PERMANENT SEGS AND HAVE AREA MANAGER DO ALL THE 
BOOK KEEPING FOR USER 

0 GIVES USEFUL OPTIONS LIKE EXTENSIBILITY, ZERO ON FREE, ETC. 

0 SOME SUBROUTINES REQUIRE POINTERS TO AREAS AS ARGUMENTS 
8 PL/1 OFFSETS ARE USABLE ONLY IN AREAS 
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AREA FORMAT 



• AREAS MAY BE DIVIDED INTO 4 TYPES BASED ON THE TWO FOLLOWING CRITERIA 



S EXTENSIBILITY 

D SOME AREAS ARE LIMITED TO THE SIZE OF A SEGMENT (NON-EXTENSIBLE 
AREAS) 

Q OTHERS CAN "GROW" INTO TEMP SEGMENTS IN THE PROCESS DIRECTORY 
(EXTENSIBLE AREAS) 



D FREEING OF SPACE WITHIN AN AREA FOR REUSE 

Q SOME AREAS HAVE BLOCKS OF FREED SPACE MAINTAINED IN LINKED 
LISTS AVAILABLE FOR REUSE (FREEING AREAS) 

fl OTHERS DO NOT REUSE FREED SPACE IN THE AREA — ALL ALLOCATIONS 
ARE DONE IN "VIRGIN AREA" (NO-FREEING AREAS) 



Q NO-FREEING AREAS ARE OBVIOUSLY HANDLED MUCH FASTER BY THE AREA 
MANAGER 



• ALL AREAS HAVE 24 WORD HEADERS 



0 EXTENSIBLE AREAS HAVE AN ADDITIONAL 12 WORD BLOCK ALLOCATED IN 
THE AREA (CONTAINS INFORMATION NEEDED BY THE AREA MANAGER TO 
EXTEND THE AREA) 
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AREA FORMAT 



• FREEING AREAS ARE MADE UP OF: 

U A HEADER THAT CONTAINS "THREAD HEADS" POINTING TO LINKED 
LISTS OF FREE BLOCKS (SPACE PREVIOUSLY USED AND THEN FREED) 

2. LINKED LISTS OF FREE BLOCKS (BLOCKS ARE PUT IN LIST BASED ON 
SIZE) 

FIRST LIST 8 TO 14 WORDS 
SECOND LIST 16 TO 30 WORDS 
THIRD LIST 32 TO 62 WORDS 

LAST LIST STARTS AT 2»»16 WORDS 

3. USED BLOCKS OF WORDS (EVEN WORD BOUNDARIES) 

4. VIRGIN SPACE 



• EACH BLOCK STARTS WITH 2 WORDS OF MANAGEMENT INFORMATION SUCH AS 
SIZE AND A POINTER TO THE AREA HEADER 



• THE NEXT WORD OF AN EMPTY BLOCK CONTAINS OFFSETS TO THE PREVIOUS 
AND NEXT BLOCKS IN THE LINKED LIST 
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AREA FORMAT 

• WHEN SPACE IS FREED THE AREA MANAGER: 

Q LOOKS AT THE FIRST 2 WORDS IN THE BLOCK TO DETERMINE SIZE OF THE 
BLOCK 

i MERGES SMALLER ADJACENT BLOCKS IF POSSIBLE 

Q THREADS THE FREED BLOCKS ONTO THE APPROPRIATE LIST 

# NOTE 

AREA MANAGER DOES NOT UPDATE BIT COUNT 
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AREA FORMAT 
AREA MANIPULATING SUBROUTINES 



• get_system_free_area_ 



THIS FUNCTION RETURNS A POINTER TO THE BASE OF THE PROCESS DIRECTORY 
SEGMENT CONTAINING THE 'system free' AREA FOR THE RING IN WHICH 
IT IS CALLED ~" 



0 USER MAY USE THIS AREA AS HE/SHE PLEASES 



del A area based (get^system free_area_{) ); 
del get_system free_area^ en'Ery returns (ptr); 
del alpha base? (beta); * 
del beta pointer; 

allocate alpha in (A) set (beta); 

/» WARNING — DO MOT SET «A« s emptyC ) : */ 
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AREA FORMA T 
AREA MANIPULATING SUBROUTINES 

• def ine__area^ 

fl call define_area_ (info__ptr, code); 
3 INITIALIZES AN AREA 

B USED TO CONTROL SPECIAL AREA MANAGEMENT FEATURES: 

Q EXTEND: ENABLES AREA TO GROW BEYOND MAX SIZE SET INTO TEMPSEGS 
(INSTEAD OF SIGNALLING THE area CONDITION) 

D ZERO ON ALLOCATION 

B ZERO ON FREEING 

B IGNORE ALL free REQUESTS (FOR DEBUGGING PURPOSES) 

8 SET MAX SIZE TO SPECIFIED VALUE (0 modulo 8) 

B USES AN INFORMATION STRUCTURE FOUND IN area_info.incl.pl1 

B REGION BEING INITIALIZED 

S IS POINTED TO BY area_info.areap 

B IS AUTOMATICALLY ACQUIRED FROM PROCESS DIRECTORY TEMPSEG POOL 
IF area infa.areap = nulK) 
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AREA FORMAT 
AREA MANIPULATING SUBROUTINES 



• release_area_ 

Q call release_^area_ Carea_ptf)j 

Q CLEANS UP AN AREA AFTER IT IS NO LONGER NEEDED 
Q RETURNS ANY TEMPSEGS TO THE POOL 

• area_info_ 

II call area_info_ (info^ptr, code); 

0 FILLS IN THE USER-ALLOCATED area_info STRUCTURE (CALLER MUST SET 
area info.areap) 
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AREA FORMAT 
AREA MANIPULATING SUBROUTINES 



del area^lnfop ptr; 

del 1 area_info aligned based (area_infop) , 
2 version fixed bin, 
2 control aligned like area^^control , 
2 owner char (32) unal, 
2 n components fixed bin, 
2 size fixed bin (18), 
2 version_of_area fixed bin, 
2 areap ptr,~ 

2 allocated blocks fixed bin, 
2 free_bloclcs fixed bin, 
2 allocated words fixed bin (30), 
2 free^words fixed bin (30); 

del 1 area control aligned based, 
2 extend bit (1) unal, 
2 zero_on_alloc bit (1) unal, 
2 zero on free bit (1) unal, 
2 dont^free bit (1) unal, 
2 no^freeing bit (1) unal, 
2 system bit (1) unal, 
2 pad bit (30) unal; 
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AREA FORMAT 
AREA RELATED COMMANDS 



# AREA-RELATED COMMANDS (DOCUMENTED IN SVG) 



0 create^area 



% PERFORMS define area *S TASKS, GIVEN A VIRTUAL POINTER TO AN 
AREA TO BE CREATED ^ 

I set^system^storage, set_user_storage 

fi ENABLE A USER-CREATED AREA TO BE USED INSTEAD OF DEFAULT •system 
free» OR »user free» AREAS 

" ■,■ ■ ■ .' . . ■ '■ 

fl AREA SPECIFIED 

1 MUST BE ZERO_ON_FREE OR ZERO_ON_ALLOC 

1 SHOULD BE EXTENSIBLE ^ 

B USEFUL FOR ISOLATING BUGS WHICH ARE INADVERTENTLY DESTROYING 
INFORMATION IN EITHER 'system free area» OR 'user free area' 



fl area status 



il COMMAND INTERFACE TO area Info 



YOU ARE NOW READY FOR WORKSHOP 
#1 
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TOPIC IV 
Multics Security 
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INTRODUCTION 

• Multics HAS THREE ACCESS CONTROL MECHANISMS 

J THE ACCESS CONTROL LIST MECHANISM (ACL«s) 

II- THE ACCESS ISOLATION MECHANISM (AIM) 
SEE APPENDIX A 

Q THE RING MECHANISM 
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INITIAL ACL'S 



• THERE MAY BE, ASSOCIATED WITH EVERY DIRECTORY, TWO TYPES OF INITIAL 
ACL CONTROL LISTS (ONE FOR INFERIOR SEGMENTS, ONE FOR INFERIOR 
DIRECTORIES) 



# FOR EVERY SUBROUTINE THAT MANIPULATES ACL»S THERE IS A CORRESPONDING 
SUBROUTINE THAT MANIPULATES INACL'S 



ACL ENTRY POINTS 


INACL ENTRY POINTS 


he s_$ add_acl_entr ie s 


hes_$add__inacl_en tries 


he s_$ add_d ir_ac l^en t r i e s 


hcs_$add_dir_inacl_entries 


hes_$delete_ael_entpies 


hcs_$delete^inacl_entries 


hes_$delete_dir_acl_entries 


hcs_$delete_dir_inael_entries 


hcs_^$list_acl 


hes_$list_inael 


hcs_$list_dir_acl 


hcs_$list_^dir_inacl 


hes_$replace_acl 


hcs_$replace_inacl 


hcs_$replaee_dir_ael 


hcs_$replace_dir_^inael 
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INITIAL ACL'S 



• ALL INACL ENTRY POINTS REQUIRE SPECIFICATION OF A RING NUMBER 

• SEGMENT INACL APPLIES TO MSF'S 

• SEE THE COMMANDS 

sis sid 
dis did 
lis lid 
ALL OF WHICH ACCEPT A -ring CONTROL ARGUMENT 
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RINGS 
INTRODUCTION 

• IHTRAPROCESS ACCESS IS CONTROLLED BY THE RING MECHANISM 



• TYPICAL APPLICATIONS 

8 PROTECTION OF SUPERVISOR FROM USER PROGRAMS 

8 PROTECTION OF SUBSYSTEM DATA BASE FROM DIRECT ACCESS 

• CLARIFICATION OF MISCONCEPTION 

Q ALL SEGMENTS ARE NOT "IN" JUST ONE RING 
8 SEGMENTS MAY "SPAN" SEVERAL RINGS 
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RINGS 
RING BRACKETS 

• EACH SEGMENT HAS ASSOCIATED WITH IT 3 RING BRACKET NUMBERS (THESE 
NUMBERS DETERMINE THE RING BRACKETS FOR THAT SEGMENT) 



• RING BRACKETS DEFINE IN WHICH RING A USER CAN READ, WRITE, CALL OR 
EXECUTE A SEGMENT 



B THE FIRST TWO NUMBERS DELIMIT THE EXECUTE BRACKET 



Q THE SECOND AND THIRD NUMBERS DELIMIT THE GATE BRACKET 



EXECUTE AND GATE BRACKETS 



- 


1 








u 


EXECUTE 
BRACKET 

1 


( 

■Ml 


GATE 
BRACKET 

1 


J 
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RINGS 
RING BRACKETS 



RING BRACKET NUMBERS ARE EXPRESSED r1jr2,r3 

ASSUMING A RING 4 USER, SPECIFY THE SEGMENTS FOR WHICH THE USER IS 
IN THE EXECUTE AND/OR GATE BRACKET 



r2_ 



4 
0 
0 
5 
1 
3 



X3. 



TYPICAL RING BRACKETS 



Q USER SEGMENTS 4,4,4 



0 SYSTEM COMMANDS AND SUBROUTINES 1,5,5 OR 0,5,5 



Q SYSTEM GATES 1,1,5 OR 0,0,5 (hcs_) 



NOTICE THAT TO EXECUTE hcs THE USER MUST BE IN RING 0 



Q HOWEVER, USERS ARE USUALLY THOUGHT OF AS BEING IN RING 4 



B USERS ACTUALLY TRAVEL IN AND OUT OF THE RING STRUCTURE 
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RIKGS 
RING BRACKETS 



RING MECHANISM SUMMARY 



WRITE 
BRACKrr 



READ BRACKET 



EXECUTE 
BRACKET 



GATE 
BRACKET 



RING OF EXECUTION 



CORRESPONDING 
PERMITTED ACTIONS * 

READ, WRITE. 
EXECUTE (WITH RING 
CHANGE) 



READ, WRITE. AND 
EXECUTE 



READ, EXECUTE 



EXECUTE (IF A GATE 
ONLY. AND WITH RING 
CHANGE) 



NONE 



SUBJECT. OF COURSE. TO ACL AND Aiivi 
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RINGS 

RING BRACKET SUBROUTINES 
9 current^ring = get_ring_(); 

Q RETURNS THE USER'S CURRENT RING OF EXECUTION 

• hcs_$get_ring_brackets 

B call hcs_$get_ring_brackets (dir^name, entryname, rb, code}; 
Q RETURNS (r1,r2,r3> FOR A SPECIFIED SEGMENT 

• hcs_$get_dir_ring_brackets 

Q call hcs_$get_dir_ring_brackets (dlr^name, entryname, drb, code); 
D RETURNS (r1,r2) FOR A SPECIFIED DIRECTORY 
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RINGS 

RING BRACKET SUBROUTINES 
hcs_$set_ring_brackets and hcs_$set_dir_ring_brackets 



B SAME CALL ARGUMENTS AS CORRESPONDING ENTRY POINT ON PREVIOUS 
PAGE 



I SETS THE RING BRACKETS OF A SPECIFIED SEGMENT OR DIRECTORY 



0 THE RING BRACKETS MUST BE >= THE CURRENT VALIDATION LEVEL OF THE 
CALLING PROCESS 



B SEE ALSO THE set_rlng brackets (srb) , set dir ring brackets Csdrb) , 
Iset ring brackets llsrb) AND lset_dlr ring Brackets (Isdrb) 
COMMANDS 
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RINGS 
GATES 

• DEFINITION OF A GATE: ONLY POINT AT WHICH A PROCEDURE IN AN OUTER 
RING CAN TRANSFER TO A PROCEDURE IN AN INNER RING 

8 IDENTIFIED BY PRESENCE OF GATE BRACKET (r2 < r3) 

B CHANGES USER'S RING OF EXECUTION 

• • GATES ARE "CREATED" BYs 

e USING aim MACROS 

g AFTER COMPILATION: 

0 THE RING BRACKETS ARE SET TO THAT OF A GATE 
8 THE ENTRY BOUND IS SET (DISCUSSED BELOW) 
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RINGS 



GATES 



• WHY GATES SHOULD BE WRI-TTEN IN aim 



r PREVIOUSLY IT WAS POSSIBLE TO ARTIFICIALLY JUMP INTO INNER CODE 
OF A GATE (POTENTIAL BREACH OF SECURITY) 



a aim ENABLES CAREFUL CONTROL OF OBJECT SEGMENT FORMAT (ONLY TRANSFER 
INSTRUCTIONS ARE PLACED AT BASE OF SEGMENT) 



Q THE WRITER OF THE GATE SETS THE ENTRY POINT BOUND OF THE PROGRAM 
EQUAL TO THE END OF THE TRANSFER INSTRUCTIONS 
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RINGS 
GATES 



CROSSING RING BOUNDARIES 



RING 5 



RING 4 



DUt 

ifind 



ObjMt entry pointnsntts: 

put 
find 

Ring brackets : 

14,5,5} 



CALLS 



put_find_ga 








Object entry pointnames: 

put 
find 






Ring brackets: 














* 


CALLS 




put_find_ga 
pfgu 


te_util„ 






Object entrypointnames: 






put 
find 








Ring brackets: 








{4,4,4! 







emp 



i 



f 



the "gate" 



READS AND WRITES 



Ring brackets: 
14,4.4} 
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RINGS 
GATES 

• USE hcs $set entry bound OR hcs $set entry bound seg TO SET ENTRY 
POINT BOUND - - - - ~ 

Q call hcs_$5et_entry_bound (dir^^name, entryname, entry^bound, 
code); 

Q call hcs_$set_entry_bound_seg (seg^ptr, entry^bound, code); 

Q SETS A HARDWARE ENFORCED LIMIT ON ENTRY POINT OFFSET 
Q IF entry_bound IS 0 THE MECHANISM IS DISABLED 

Q ENTRY BOUND MAINTAINED IN CONTAINING DIRECTORY AND BUILT INTO 
THE SEGMENT DESCRIPTOR WORD (SDW) WHEN THE SEGMENT IS MADE KNOWN 

B OBJECT SEGMENT ITSELF IS UNCHANGED 
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RINGS 



GATES 



EXAMPLE 
. ! print bound_prog.pl1 1 
bound prog: proc; 

del Hcs $set entry bound entry (char (*), char (•), 

fixed bin (14)7 fixed bin (35)); 
del code fixed bin (35); 

call hcs_$set_entry bound (">udd>F15D>doodle" , 
"bound^prog" , TO, code); 

end bound^prog; 

r 14:02 0.066 2 

! bound prog 

r 14:0? 0.081 3 

! bound_prog 

Error: Attempt by cu_1373 
(>system_library 1>bound command^loop ) 
to access >udd>FT5D>doodTe>bound_progTl6 
which is beyond the entry bound for the gate, 
r 14:02 0.164 23 level 2 
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RINGS 
VALIDATION LEVEL 



• POTENTIAL PROBLEM: 

B RING OF EXECUTION KEPT IN REGISTER IN THE PROCESSOR 
B RING OF EXECUTION KEEPS CHANGING 
B ASSUME A SEGMENT IS BEING CREATED 

B HOW DO SYSTEM SUBROUTINES ASSIGN PROPER RING ' BRACKETS? 

• VALIDATION LEVEL 

B MEANS BY WHICH INNER RING (CALLED) PROCEDURE "KNOWS" THE LEVEL 
OF PRIVILEGE OF THE OUTER RING (CALLING) PROCEDURE 

B VALIDATION LEVEL CAN BE CHANGED 

B CANNOT BE SET LOWER THAN RING OF EXECUTION 

B VALIDATION LEVEL CHANGE USED FOR EXAMPLES 
n TO CREATE A MAILBOX 

B BY A SUBSYSTEM WISHING TO CREATE A SEGMENT IN INNER RING 
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RINGS 
VALIDATION LEVEL 

• cu_$l€vel_get (AG93) 

II call cu_$level_get (level) 

0 RETURNS THE CURRENT VALIDATION LEVEL 

Q PRIMARILY USED PRIOR TO A CALL TO cu $level set TO SAVE THE 
CURRENT VALIDATION LEVEL 

• cu_$level_set (AG93) 

6 call cu_^$level_set (level) 

0 ALLOWS THE CALLER TO CHANGE THE CURRENT VALIDATION LEVEL 
Q NEW LEVEL MUST BE >r CURRENT RING OF EXECUTION 

• hcs_$get_user_ef fmode 

Q call hcs_$get_^user_effmode (dir^name, entryname, user^id, 

"* " ringy mode, code); "* 

Q RETURNS THE EFFECTIVE MODE FOR THE SPECIFIED RING . 
Mot To Be Reproduced 4-16 F15D 



RINGS 
CROSS RING I/O 



AN ATTEMPT TO DO "CROSS RING I/O" USUALLY RESULTS IN A FATAL PROCESS 
ERROR 



Q REASON: lOCB'S ARE PER RING 

B TYPICAL EXAMPLE: CALLING com err IN AN INNER RING 



"CROSS RING I/O" IS ALLOWED USING THE FOLLOWING 



D cross_ring_ 

Q AN I/O MODULE WHICH ALLOWS AN OUTER RING TO ATTACH A SWITCH 
(BASICALLY AS A SYNONYM) TO A PREEXISTING SWITCH IN AN INNER 
RING, AND TO PERFORM I/O OPERATIONS BY FORWARDIHG I/O FROM 
THE ATTACHMENT IN THE OUTER RING THROUGH A GATE TO THE INNER 
RING 



B AN INNER RING SWITCH MUST BE ATTACHED WHILE IN THE INNER RING 
BEFORE cross_ring_ CAN BE USED TO ATTACH OUTER RING SWITCH 



0 cross_ring_io_$allow_cross 

D call cross_ring;_io_$allow_cross (switch^name, ring, code); 

B CALL MUST BE MADE IN THE INNER RING BEFORE THE OUTER RING 
ATTEMFTS~^0 ATTACH TO THIS SWITCH WITH cross ring 



Not To Be Reproduced 



4-17 



F15D 



RINGS 



CROSS RING I/O 



! pat 
user i/o 



tty_ -login^channel 
stream Input output 



user input 
user][^output 
error output 



syn_ user_i/o 
syn_^ user^i/o 
syn"" user~'i/o 



! pr cross. pll 1 

cross: proc; 

del gate$allow entry; 

del iox $get chars entry (ptr, ptr, fixed bin(21), 

fixed bin(21), fixed bin(35)); 
del iox $attach name entry (char(*), ptr, char(*), ptr, 

fixed bin(35)); 
del iox_$open entry (ptr, fixed bin, bit (1) aligned, 

fixed bin (35)) j 

del com_err_ entryO options( variable) ; 

del code fixed bin (35); 

del iocb ptr; 

del buffer char (20); 

call gate$allow; 

call iox_$attach_name ("outer", iocb, "cross ring file 4", 



nulTO, code); 



call iox_$open (iocb, 3> "0"b, code); 



end cross; 



!pr gate. aim 1 



include gate^macros 

gate^info " 

gate allow, allow, allow, 0 

end 
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RINGS 
CROSS RING I/O 



!pr allow. pll 1 
allow: proc; 

del cross ring io $allow cross entry (char(*), fixed bin, 

" ~ ~ ~ fixed bin(35)); 

del iox_$attach_name entry (char(»), ptr, char(»), ptr, 

fixed bin(35)); 

del iox_$open entry (ptr, fixed bin, bit(1) aligned, fixed bin(35)); 

del code fixed bin(35); 

del com err_ entryO options(variable) ; 

del ioe¥ ptr; 

del null builtin; 

del eu_$level set entry (fixed bin); 
del cu_$level~get entry (fixed bin); 
del old_level fixed bin; 

del get_ring_ entry () returns( fixed bin(3)); 
call cu_$level_get (old^^level) ; 
call cu_$level_set (get_ring_{)) ; 

call iox_$attaeh_name ("file", ioeb, "vfile_ >udd>MED>nd>gate>f ile" , 
~ nullO, code); 

call eross_ring_io_$aHow_cross ("file", 5, code); 

call cu_$level_set (old^level); 

end allow; 



1st [wd] -rb 
5^5 



1st file cross gate allow -rb 

>udd>MED>NDibble>gate> f ile 

4 4 4 

'>udd>MED>NDibble>gate>cross 
4 5 5 

'>udd>MED>NDibble>gate>gate 
4 4 5 

'>i!dd>MED>NDibble>gate>allow 

4, 4, 4 
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RINGS 
CROSS RING I/O 



! cross 



! pat 

' user_i/o tty_ -login_channel 

~ stream^input^output 

user^ihput " syn_ user_i/o 
user__output syn_ user__i/o 

error^output syn_ user~i/o 

outer cross_ring_ file 4 stream_input_output 

! io put^chars outer "line 1" 
!io put_chars outer "line 2" 
!io position outer -1 
!io get line outer 
io caTl:7 characters returned .line 1 



Ipr file 

print: Incorrect access on entry. >udd>MED>NDibble>gate>file 



• TWO MAJOR POINTS TO REMEMBER 

e WORKING DIRECTORIES ARE PER RING 



D MUST SET VALIDATION LEVEL TO INNER RING BEFORE CREATING INNER 
•IOCB« 
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INTRODUCTION 



THE SUBSYSTEM DESIGNER HAS THE CAPABILITY OF MODIFYING SEVERAL 
DIFFERENT ASPECTS OF THE COMMAND ENVIRONMENT 



THE cu_ (COMMAND UTILITY) SUBROUTINE ({1,5,5} PROCEDURE WRITTEN IN 
aim) IS THE TOOL USED BY SUBSYSTEM DESIGNERS TO ACCOMPLISH THE 
FOLLOWING BASIC TASKS: 



B WRITING COMMAND OR ACTIVE FUNCTION PROCEDURES 



cu_$arg^count 

cu_$arg_ptr 

c u~$ a fjar g__coun t 

cu_$af return^arg 

c u__$ a f^ar g_p t r 



Q MODIFYING THE STANDARD COMMAND ENVIRONMENT 

B WRITING A COMMAND PROCESSOR 
cu $generate call 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 



• THE STANDARD COMMAND ENVIRONMENT IS PROVIDED TO ALLOW THE USER TO 
PROCESS HIS COMMAND REQUESTS, EXECUTE HIS PROGRAMS, AND SO ON 



THE BASIC COMMAND ENVIRONMENT HAS THE FOLLOWING CHARACTERISTICS: 



♦listen__' IS INVOKED AT PROCESS START UP TIME AND IS ALWAYS 
RETURNED TO FOLLOWING THE EXECUTION OF A COMMAND (OR FOLLOWING A 
PROGRAM ABORT)' 



D THIS "LISTENER" ACCEPTS INPUT FROM THE USER'S TERMINAL AND 
PASSES SUCH INPUT TO THE "CURRENT COMMAND PROCESSOR" FOR FURTHER 
PROCESSING ^ 



S EVERY TIME CONTROL RETURNS BACK TO THE "LISTENER", THE 'listen » 
PROGRAM INVOKES THE "CURRENT READY PROCEDURE" 



Q THE "CURRENT COMMAND PROCESSOR" PROCESSES THE INPUT LINE TYPED 
BY THE USER AND PASSED TO IT BY THE LISTENER 

11 THE STANDARD COMMAND PROCESSOR (command processor ) FIRST DOES 
SUCH THINGS AS EXPANDING OUT ANY ITERATION LOOPS TPARENTHESES) 
AND EVALUATING ACTIVE FUNCTIONS (BRACKETS) 

Q THE STANDARD COMMAND PROCESSOR THEN DEVELOPS A CALL TO THE 
APPROPRIATE COMMAND OR USER PROGRAM 



Q WHENEVER A QUIT OR OTHER "UNCLAIMED" SIGNAL (CONDITION NOT HANDLED 
BY USER) ARISES A "NEW LEVEL" OF THE LISTENER IS INVOKED BY 
"REENTERING COMMAND LEVEL" 

Q WHEN THE DEFAULT HANDLER DECIDES TO REENTER COMMAND LEVEL, 
THE "CURRENT COMMAND LEVEL INTERMEDIARY" WILL BE INVOKED 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 

# STANDARD COMMAND ENVIRONMENT CONCEPTS 

Q CURRENT READY PROCEDURE 

fl IS INVOKED WHEN LISTENER (OR ANY OTHER PROCEDURE) CALLS 
cu_$ready;_proc 

D IS, BY DEFAULT, print ready message , WHICH MERELY PRINTS THE 
READY MESSAGE " " 

D MAY BE SET BY A CALL TO cu_$set_ready_procedure 

0 MAY BE DETERMINED BY Jl CALL TO cu_$get_ready_procedure 

Q CURRENT COMMAND PROCESSOR 

0 IS INVOKED WHEN LISTENER (OR ANY OTHER PROCEDURE) CALLS cu_$cp 
Q IS, BY DEFAULT, command_processor_ 

Q MAY BE SET BY A CALL TO cu $set command processor (NOTE THE 
•abbrev* COMMAND) " 

Q MAY BE DETERMINED BY A CALL TO cu_|get_command_processor 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 



B CURRENT COMMAND LEVEL INTERMEDIARY 



0 IS INVOKED WHEN DEFAULT ERROR HANDLER (OR ANY OTHER PROCEDURE) 
CALLS cu $cl 



B IS, BY DEFAULT FOR INTERACTIVE PROCESSES, 

get to_cl $unclaimed signal WHICH REENTERS COMMAND LEVEL VIA 
A CXLL TO^llsten $reT6ase stack 



Q MAY BE SET BY A CALL TO cu $set cl intermediary 



Q MAY BE DETERMINED BY A CALL TO cu_$get_cl_in termed iary 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 



This Page Intentionally Left Blank 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 
CURRENT READY PROCEDURE 

WHERE THE CURRENT 
READY PROCEDURE FITS IN 



listen_$listen_ 


CALL 




cu_$res 


idy_proc 



CALL 



RETURN 



cu__$ready_proc 










RETURN ^ 


f 


listen.. 


Slisten. 







PRINTS READY MESSAGE 

IFF cu.$get_ready_inode RETURNS "1"b 



'LISTENS" FOR NEXT LINE 



t 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 
CURRENT READY PROCEDURE 

• MANIPULATING THE READY PROCEDURE 

II cu_$ready_proc (AG93) 

Q CALLS THE CURRENT READY PROCEDURE 

Q cu_$set_rea(iy_procedure (AG93) 

B ESTABLISHES THE SPECIFIED PROCEDURE AS THE CURRENT READY 
PROCEDURE 

fl cu_$get_reaciy_procedure (AG93) 

fl RETURNS A NULL ENTRY VALUE IF THE CURRENT READY PROCEDURE IS 
THE DEFAULT ( printer eady_message_) 

fl OTHERWISE, RETURNS THE PL/1 ENTRY VALUE OF THE CURRENT READY 
PROCEDURE 

Q cu_$set_ready_niode (AG93) 

Q SETS OR RESETS THE "STATIC READY MODE" SWITCH 

Q THE CURRENT READY PROCEDURE CAN (BUT NEEDN'T) CHECK THIS SWITCH 
TO SEE WHETHER TO PRINT OR NOT (NOTE THE 'ready on« , AND 
»ready_off» COMMANDS) ~ 

3 cu__$get_ready_mode (AG93) 

Q RETURNS THE VALUE OF THE "STATIC READY MODE" SWITCH 

Not To Be Reproduced 5-7 F15D 



MODIFYING THE STANDARD COMMAND E NVIRONMENT 
CURRENT COMMAND PROCESSOR 



USER TYPES "pvNd' 



listBn_ 


.$listen_ 




CALL 


1 PASSING A LINE PTR. LINE LENGTH . & CODE 




-Sep 




CALL 


1 PASSING A LINE PTR. LINE LENGTH, & CODE 


abbrev_ 


_$abbrev_ 


^ ^ THE *t:URRENT COMMAND PROCESSOR" 



CALL 



PASSING A LINE PTR. LINE LENGTH. & CODE 



command _proc8ssor_$command_proc8Ssor_ 



CALL 



RETURN 



PRINTS WORKING DIRECTORY 



I command,proc8Ssor,$command^|mH»»or^ j 



RETURN 





$abbrev_ 






RETURN ^ 




cu_$cp 


RETURN 




listsn.^isten 



WHERE THE CURRENT 
COMMAND 
PROCESSOR FITS IN 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 



CURRENT COMMAND PROCESSOR 



• MANIPULATING THE CURRENT COMMAND PROCESSOR 



D cu $cp (AG93) 



Q INVOKES THE CURRENT COMMAND PROCESSOR, PASSING TO IT AN INPUT 
LINE POINTER, LINE LENGTH AND CODE 



B BESIDES THE LISTENER, USED ALSO BY SUBSYSTEMS HONORING AN "e" 
. OR REQUEST 



Q cu $set command processor (AG93) 



0 ESTABLISHES THE SPECIFIED PROCEDURE AS THE CURRENT COMMAND 
PROCESSOR (BY SPECIFYING AN ENTRY VALUE) 



Q cu $get command processor (AG93} 



Q RETURNS A NULL ENTRY VALUE IF THE CURRENT COMMAND PROCESSOR 
IS THE DEFAULT (comraand_processor_$command_processor__^) 



D OTHERWISE RETURNS THE ENTRY VALUE OF THE CURRENT COMMAND 
PROCESSOR 
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COMMAND LEVEL INTERMEDIARY 



USER TYPES "print foo' 



IQUIT! 



listen Siistm 



CALL f 



cu_$qj 



CALL 



WHERE THE COMMAND 
LEVEL INTERMEDIARY 
~ FITS IN 



abbrev Safafarev 



CALL f 



prin^print 



DURING PRINTING OF fbo. USER HITS QUIT KEY 



CALL : I 



quit CONDITION SIGNALLED AND A HANDLER IS FOUND 



default jerror_handler_$iMall | PRINTS "QUIT " ON TERMINAL 


CALL \ 


f 


(WHEN IT'S TIME TO RETURN TO COMMAND LEVEL) 


cu_ 


$el 




CALL , 


f 


I get_to 


d_$unclaimed_»gnal | 


CALL ^ 






llsten_$rel 


ease^^stedc 




CALL ^ 


r 




1 «._$«dy_p,o. 1 





CALL f 

jprmOnndy^fn^^^^ 




PRINT READY MESSAGE WITH "level 2" CLAUSE 
I FF cu.$get_ready_mode RETURNS "1" b 



RETURN 



listen Srelease stack 



'LISTENS" FOR FIRST COMMAND IN THIS LEVEL 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 
COMMAND LEVEL INTERMEDIARY 



• MANIPULATING THE COMMAND LEVEL INTERMEDIARY 

D cu_$cl (AG93) 

B INVOKES THE CURRENT COMMAND LEVEL INTERMEDIARY 
S CALLED BY THE STANDARD ERROR HANDLERS 

D cu_$set_cl_intermediary (AG93) 

0 ESTABLISHES THE SPECIFIED PROCEDURE AS THE CURRENT COMMAND 
LEVEL INTERMEDIARY 

D NOTE THAT-AH INTERMEDIARY IS USED IN ABSENTEE PROCESSES TO 
FORCE PROCESS TERMINATION "WHEN AN ATTEMPT IS MADE TO REENTER 
COMMAND LEVEL** 

B cu_$get_cl_in termed iary (AG93) 

B RETURNS A NULL ENTRY VALUE IF THE CURRENT COMMAND LEVEL 
INTERMEDIARTTSr THE DEFAULT (get_to_cl_$unclaimed_signal) 

B OTHERWISE RETURNS THE ENTRY VALUE OF THE CURRENT COMMAND LEVEL 
INTERMEDIARY 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 
SOME MISCELLANEOUS CU ENTRY POINTS 

# cu_$decd<ie_entry_value (AG93) 

0 call cu_^$decode_entry_value (entry^value, ep^ptr, env^ptr); 
li EXTRACTS THE POINTER COMPONENTS OF A PL/I ENTRY VALUE 

1 USEFUL FOR DETERMINING IF AN ENTRY VALUE IS NULL 

B NOTE: RECENTLY REPLACED BY codeptr AND environmentptr BUILTINS 

• cu_$arg_list_ptr (AG93) 

Q RETURNS A POINTER TO THE ARGUMENT LIST STRUCTURE PASSED TO THE 
CALLER 



I GENERALLY USED BY SUBROUTINES WHICH ARE CALLED WITH A VARYING 
NUMBER OF ARGUMENTS OF VARYING DATA TYPES (ioa FOR INSTANCE), 
TO ALLOW EXAMINATION OF THE ARGUMENT LIST DIRECflY 

Q SEE ALSO decode descriptor IN AK92 



Not To Be Reproduced 



5-12 



F15D 



MODIFYING THE STANDARD COMMAND ENVIRONMENT 



SOME MISCELLANEOUS CU ENTRY POINTS 



cu_$arg_ptf_rel (AG93) 

fi REMINISCENT OF cu_$arg_ptr 



ALLOWS A PROCEDURE TO REFERENCE THE nth ARGUMENT PASSED TO ANOTHER 
PROCEDURE, GIVEN A POINTER TO THAT OTHER PROCEDURE'S ARGUMENT 
LIST 



I QUESTION: HOW WOULD A PROCEDURE OBTAIN THE arglist_ptr OF ANOTHER 
PROCEDURE? 

Q IT COULD BE PASSED SUCH A POINTER 

e IT COULD LOOK IN STACK FRAME OF OTHER PROCEDURE 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 



SOME MISCELLANEOUS CU ENTRY POINTS 



• GENERATING A CALL GIVEN AN ENTRY VALUE 



Q cu_$generate_call (AG93) 

B GENERATES A STANDARD CALL TO THE SPECIFIED PROCEDURE (DESIGNATED 
3Y AN ENTRY VALUE) WITH A SPECIFIED ARGUMENT LIST 

Q DESIGNED PRIMARILY TO BE USED BY COMMAND PROCESSORS THAT CALL 
A COMMAND WITH AN ARGUMENT LIST BUILT FROM A COMMAND LINE 
INPUT FROM A TERMINAL 



& IS PREFACED BY A CALL TO hcs $make entry , WHICH ACCEPTS PATHNAMES 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 



AN EXAMPLE 



! print change^cl.pll 1 

change^cl: proc; 

del codeptr builtin, 

cu_$get_cl_intermediary entry (entry), 
cu_$set_cl_interraediary entry (entry), 
eu_$get_command_processor ^:\lr*y (entry), 
ioa_ en^ry options (variable); 

del var entry entry variable, 
my Tntermediary entry; 



/* FIND OUT THE CURRENT COMMAND PROCESSOR »/ 

call cu_$get command__proeessor (var^entry); 

call ioa_ ("lJurrent command processor is ''p", codeptr ( var^entry) ) ; 

/» FIND OUT THE CURRENT INTERMEDIARY »/ 

call cu_$get cl_intermediary (var entry); 

call ioa_^ (""Current intermediary Ts "p", codeptr ( var^entry) ) ; 

/» NOW SET MY OWN INTERMEDIARY »/ 

call eu_$set_cl_intermedlary (my^intermediary) ; 

end change el; 
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MODIFYING THE STANDAR D COMMAND ENVIRONM ENT 

AN EXAMPLE 



r 19:26 0.132 0 

Sprint my_intermediary.pl1 1 

my_intermediary: proc; 

del get_to_cl__$unclaimed_signal entry; 
del ioa_ entry options (variable); 

call ioa ("TYPE » start' TO RESTART PROCESS 
TYPE 'release' OR "^rl' TO DISCARD STACK HISTORY"); 
call get_to_el^$unelairaed_signal; 
end my intermediaryj 



r 19:26 0.069 0 
Ichange^cl 

Current command processor is 30512676 
Current intermediary is 7777711 
r 19:27 0.089 0 

Urn 305 

305 >sss>bound full cp 
do " " 

response 

ab 

exec com 

r 19:27 0.105 0 

I den >sss>bound full cp 2676 
2676 abbrev|33^"" " 

r 19:28 0.096 2 
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AN EXAMPLE 



I (QUIT) 
QUIT 

TYPE » start » TO RESTART PROCESS 

TYPE 'release' OR «rl» TO DISCARD STACK HISTORY 

r 19:29 0.168 4 level 2 

■..I probe . " ; . . ■^V■ ■. '^'z^:;' 

Condition quit raised at block! 154 (level 6). 



stack 

13 simple__command_processor } 1221 1 

12 command processor 111014 

11 abbrev_T7507 " 

10 release_stack|7755 

9 unclaimed^signall 27010 

3 my intermediary (line 8) 
7 wall 1 2602 

6 block|154 quit 

5 tty_get_line{5763 

4 audit get line! 5073 
3 listen \TS66 

2 projeclE start up 141673 

1 user init admin T42376 (aim) 
tq - - - 



r 19:29 0.980 81 level 2 

{release 

r 19:29 0.044 0 

!change_cl 

Current command processor is 30512676 
Current intermediary is 456126 
r 19:29 0.046 0 

!lrn 456 

456 >udd>MED>NDibble>my_intermediary 
my_intermediary ' "* 
r 19:30 0.047 0 
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MODIFYING THE STANDARD COMMAND ENVIRONMENT 

AN EXAMPLE 



YOU ARE HOW READY FOR WORKSHOP 
#2 
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Advanced Multics I/O 
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* & I JIM 



REVIEW 



• I/O SYSTEM BASIC CHARACTERISTICS: 



Q LOGICAL INPUT/OUTPUT REQUESTS ARE USED RATHER THAN DEVICE-SPECIFIC 
PHYSICAL REQUESTS 



Q DEVICE INDEPENDENCE IS ACHIEVED VIA THE Multics I/O SWITCH MECHANISM 



B ALL I/O REQUESTS ARE DIRECTED TO A "SWITCH", WHICH IS "ATTACHED" 
BY A DEVICE-DEPENDENT PROGRAM, CALLED AN I/O MODULE, TO A PARTICULAR 
DEVICE OR FILE 

8 THE SUPPORTING DATA STRUCTURE OF A SWITCH IS AN I/O CONTROL 
BLOCK (lOCB) 

• ALL I/O OPERATIONS CAN BE PERFORMED AT THREE BASIC LEVELS: 

Q LANGUAGE LEVEL - »open» , »close», 'get', »read», »put», »write« 
8 COMMAND LEVEL - THE 'io^call* COMMAND 
D SUBROUTINE LEVEL - THE • iox « SUBROUTINE 
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CONTROL ORDERS 



• CONTROL OPERATIONS ARE ONE EXAMPLE OF EXTENDED POWER OF iox OVER 
LANGUAGE I/O 



SOME I/O MODULES SUPPORT 'control' OPERATIONS AND SOME DO NOT 



• THEY ARE INVOKED BY A CALL TO iox $control 



• COMPLETE DESCRIPTIONS OF THE I/O MODULES, AND THE CONTROL ORDERS 
THEY SUPPORT CAN BE FOUND IN EITHER THE "MPM - Subroutines", ORDER 
NUMBER AG93, THE "MPM - Peripheral Input/Output", ORDER NUMBER kW, 
OR THE "Comfflunications Input/Ouput" MANUAL, ORDER NUMBER CC92. 



• THE SUBSYSTEM DESIGNER MAY WANT TO MAKE USE OF SOME OF THE * control 
OPERATIONS SUPPORTED BY THE tty AND vfile I/O MODULES 
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CONTROL ORDERS 
USEFUL TTY CONTROL ORDERS 



• tty_ SUPPORTS THE FOLLOWING CONTROL ORDERS (DOCUMENTED IN CC92) 

B abort 

resetread 
resetwrite 

Q THESE FLUSH BOTH THE INPUT AND OUTPUT INTERMEDIATE BUFFERS 
(abort), THE INPUT BUFFER (resetread) OR THE OUTPUT BUFFER 
(resetwrite) FOR AN OPENED SWITCH 

0 hangup 

D DISCONNECTS THE TELEPHONE LINE CONNECTION OF THE TERMINAL, IF 
POSSIBLE 

0 listen 

i SENDS A WAKEUP TO THE PROCESS ONCE THE LINE ASSOCIATED WITH 
THIS DEVICE IDENTIFIER IS DIALED UP (SEE THE DISCUSSION OF 
'DIALING TERMINALS TO A PROCESS') 

Q terminal^info 

— 

Q RETURNS INFORMATION ABOUT THE DEVICE TO WHICH THE MODULE IS 
ATTACHED IN A USER-SUPPLIED STRUCTURE 

B ANSWERBACK-DERIVED TERMINAL ID 

Q TERMINAL TYPE 

Q LINE TYPE 

Q 3AUD RATE 
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COHTROL ORDERS 
USEFUL TTY CONTROL ORDERS 



Q qult^enable 
quit^disable 



Q CAUSE »quit' SIGNAL PROCESSING TO BE ENABLED OR DISABLED FOR 
THIS DEVICE (FOR EXAMPLE, THE STANDARD PROCESS CREATION CYCLE 
PROGRAMS ENABLE QUITS ONLY ONCE CONTROL HAS PASSED OUT TO THE 
USER RING, TO PREVENT A 'quit' FROM ALLOWING A PROCESS TO 
GAIN CONTROL IN AN INNER RING) 



B NOTE: EVEN IF TERMINAL QUITS ARE DISABLED, IT IS POSSIBLE TO 
SIGNAL 'quit* IN A USER PROGRAM, OR VIA THE 'signal* COMMAND 
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CONTROL ORDERS 



USEFUL TTY CONTROL ORDERS 



Q start 



CAUSES A WAKEUP TO BE SIGNALLED ON THE EVENT CHANNEL ASSOCIATED 
WITH THIS DEVICE- THE REQUEST IS USED TO RESTART PROCESSING 
ON A DEVICE WHOSE WAKEUP MAY HAVE BEEN LOST OR DISCARDED 
(PERHAPS BECAUSE OF BEING INTERRUPTED BY AN ipc_ OR 
timer_manager_ CALLED ROUTINE) 



Q printer_of f 
pr interior! 



0 CAUSE THE PRINTER MECHANISM OF THE TERMINAL TO BE TEMPORARILY 
DISABLED OR REENABLED (IF IT IS PHYSICALLY POSSIBLE FOR THE 
TERMINAL TO DO SO) - THIS MAY BE USEFUL FOR SUCH THINGS AS 
ACCEPTING PASSWORDS . 



0 set^delay 
get delay 



fl SET, OR RETURN, THE NUMBERS OF DELAY CHARACTERS ASSOCIATED 
WITH THE OUTPUT OF CARRIAGE MOTION CHARACTERS 



S DEFAULT VALUES CAN BE USED, OR DELAY CHARACTERS CAN BE SPECIFIED 
FOR VERTICAL AND HORIZONTAL NEW-LINE OUTPUTS, FORMFEEDS, AND 
THE LIKE 



0 set_editing_chars 
ge t_ed i t ing^char s 



Q CHANGE, OR FIND OUT, WHAT CHARACTERS ARE BEING USED FOR EDITING 
INPUT 



i THE ERASE AND KILL CHARACTERS CAN BE SET TO ANY CHARACTERS 
DESIRED SUBJECT TO SOME RESTRICTIONS (E.G, , NO CARRIAGE-MOVEMENT 
CHARACTERS, NOT *NUL« OR SPACE, AND SO ON) 
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CONTROL ORDERS 
USEFUL TTY CONTROL ORDERS 



S set_input_transiation 
get_input_^translation 

fl SETS, OR READS, A TABLE WHICH IS USED FOR TRANSLATION OF 
TERMINAL INPUT TO ASCII 



0 set_output_translation 
get output translation 



D SETS, OR READS, A TABLE WHICH IS USED FOR TRANSLATING ASCII 
CHARACTERS TO THE CODE TO BE SENT TO THE TERMINAL 



Q set_input_conversion 
get^input^conversion 



Q WRITE OR READ A TABLE WHICH IS USED IN CONVERTING INPUT TO 
IDENTIFY ESCAPE SEQUENCES AND CERTAIN SPECIAL CHARACTERS 



0 set_output_conversion 
get_output_conversion 



Q WRITE OR READ A TABLE USED IN FORMATTING OUTPUT TO IDENTIFY 
CERTAIN KINDS OF SPECIAL CHARACTERS (SUCH AS NEWLINE^ CARRIAGE 
RETURN, BACKSPACE, /AND SO ON) 



fl set_special 
get^special 



0 WRITE OR READ A TABLE THAT SPECIFIES 1-3 CHARACTER SEQUENCES 
TO BE SUBSTITUTED FOR CERTAIN OUTPUT CHARACTERS, AND CHARACTERS 
WHICH ARE TO BE INTERPRETED AS PARTS OF ESCAPE SEQUENCES ON 
INPUT 
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CONTROL ORDERS 
USEFUL VFILE CONTROL ORDERS 



• vfile_ SUPPORTS THE FOLLOWING CONTROL ORDERS 
0 read^position 

0 RETURNS THE ORDINAL POSITION OF THE NEXT RECORD (OR BYTE) AND 
THAT OF THE END OF THE FILE (RELATIVE TO THE FILE BASE) 

Q seek^head 

0 USED FOR FILES OPENED FOR KEYED-SEQUENTIAL-INPUT OR 
KEYED-SEQUENTIAL-UPDATE 

D LOCATES THE FIRST RECORD WITH A KEY WHOSE HEAD HAS THE SPECIFIED 
.RELATION (=, >s, >) WITH A GIVEN SEARCH-KEY 

5 USEFUL FOR APPLICATIONS WHICH MUST LOCATE THE FIRST RECORD 
THAT, FOR INSTANCE, BEGINS WITH "B" 

B APPLICATION: MDBM USES THIS WHEN LOCATING TUPLES GIVEN ONLY 
LEADING PORTION OF Kg ? .: 

S file_status 

0 RETURNS VARIOUS ITEMS OF INFORMATION ABOUT THE FILE 
Q SEE vfs COMMAND AND vfile status SUBROUTINE 
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CONTROL ORDERS 
USEFUL VFILE CONTROL ORDERS 



get^key 
add__key 
delete^key 
reassign key 



e MANIPULATE THE KEYS IN AN INDEXED FILE DIRECTLY (THUS ALLOWING 
SEVERAL KEYS TO BE ASSOCIATED WITH A GIVEN DATA RECORD, 
REASSIGNING THE DATA DESCRIPTOR OF A KEY TO ANOTHER DATA 
DESCRIPTOR, AND SO ON) 



REVIEW OF IOCB»S 



• RECALL: 



8 AN »IOCB» IS A STANDARD DATA STRUCTURE 



B IT IS THE PHYSICAL REALIZATION OF A SWITCH 



Q THEY ARE FOUND IN THE USER'S PROCESS DIRECTORY 



Q AN » IOCS' IS CREATED BY iox_ WHEN A SWITCHNAME IS USED IN AN 
"ATTACH STATEMENT" OR "ATTACH COMMAND" FOR THE FIRST TIME IN A 
PROCESS 



ONCE AN »IOCB» IS CREATED, IT LIVES THROUGHOUT THE PROCESS (UNLESS 
EXPLICITLY DELETED) 



THE PRINCIPAL COMPONENTS OF AN 'lOCB* ARE » pointer* VARIABLES 
AND 'entry' VARIABLES 



THERE IS ONE 'entry' VARIABLE FOR EACH I/O OPERATION, WITH THE 
EXCEPTION OF THE ATTACH OPERATION 



0 TO PERFORM AN I/O OPERATION THRU THE SWITCH, THE APPROPRIATE 
ENTRY VALUE IN THE CORRESPONDING 'lOCB' IS CALLED . . 
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REVIEW OF lOCB'S 



• WHEN iox $ attach name IS CALLED IT: 



Q INITIALIZES SOME OF THE ELEMENTS IN THE 'lOCB' STRUCTURE 



Q CALLS <module_ttaae>$<module_name> attach 

Q THIS ENTRY POINT IN THE I/O MODULE FINISHES THE INITIALIZATION 
OF THE 'lOCB* 



IT IS THE RESPONSIBILITY OF THE I/O MODULE TO MAINTAIN THE ACCURACY 
OF THE 'lOCB' 



ONLY THE iox_ ENTRY POINTS RESULTING IN ATTACHMENT OF A SWITCH 
REQUIRE THE MODULE AS AN INPUT ARGUMENT 



Q AFTER THAT TIME, THE 'IOCS' "POINTS TO" THE APPROPRIATE ENTRY 
POINTS IN THE APPROPRIATE MODULE (THE USER NEED ONLY PROVIDE A 
POINTER TO THE » IOCS') 
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REVIEW OF lOCB'S 



del 1 iocb aligned based, /• I/O control block. */ 

2 version fixed init(l), /* Version number of structure. */ 

2 name char (32), /* I/O name of this block. */ 

2 actual_iocb__ptr ptr, /* IOCB ultimately SYNed to. */ 

2 attach_descrip_ptr ptr,/* Ptr to printable attach descrip. */ 

2 attach_data_ptr ptr, /* Ptr to attach data structure. */ 

2 open_descrip_ptr ptr, /* Ptr to printable open description. */ 

2 open_data_ptr ptr, /* Ptr to open data structure. */ 

2 reserved bit (72), /* Reserved for future use. */ 

2 detach iocb entry (ptr, fixed (35)), 

/» detach_iocb (p,s) »/ 
2 open entry (ptr, fixecj, bit (Daligned, fixed (35)), 

/* open(p, mode, not used,s) */ 
2 close entry (ptr, fixed (35)7, /* close(p,s) */ 
2 get_line entry (ptr, ptr, fixed (21), fixed (21), fixed (35)), 

/» get line(p,bufptr ,buflen,actlen,s */ 
2 get_chars entry Tptr, ptr, fixed (21), fixed (21), fixed (35)), 

/* get chars(p,bufptr ,buflen,actlen,s) */ 
2 put_chars entry Tptr, ptr, fixed (21), fixed (35)), 

/* put__chars(p,bufptr ,buflen,s) */ 
2 modes entry (ptr, char (*), char (*), fixed (35)), 

/* modes(p,newmode,oldmode,s) */ 
2 position entry (ptr, fixed, fixed (21), fixed (35)), 

/* position(p,u1 ,u2,s) */ 
2 control entry (ptr, char (*), ptr, fixed (35)), 

/* controK p, order ,infptr,s) */ 
2 read_record entry (ptr, ptr, fixed (21), fixed (21), (fixed (35)), 

/* read_record(p,bufptr ,buflen,actlen,s) */ 
2 write_record entry (ptr, ptr, fixed (21), fixed (35)), 

/* write_record(p,bufptr ,buflen,s) */ 
2 rewrite^record entry (ptr,' ptr, fixed (21), fixed (35)), 

/* rewrite record(p,bufptr ,buflen,s) */ 
2 delete^record entry Tptr, fixed (35)), 

/* delete_record(p,s) */ 
2 seek^key entry (ptr, char (258) varying, fixed (21), fixed (35)), 

/* seek key(p,key ,len ,s) */ 
2 read_key entry (pTr, char (256) varying, fixed (21), fixed (35)), 

/* read_key(p,key,len,s) */ 
2 read_length entry (ptr, fixed (21), fixed (35)), 

/* read_length(p,len,s) »/; 
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REVIEW OF lOCB'S 



/* "HIDDEN" PORTION •/ 

2 ios^cofflpatibility ptr, /• Ptr to old DIM*« lOS transfer vector. */ 

2 syn_inhibiti5 bit(36), /• Operations inhibited by SYN. */ 

2 syn_father ptr, /» lOCB immediately SYNed to. */ 

2 syn_brother ptr, /« Next IOCS SYNed as this one is, »/ 

2 syn_son ptr; /* First lOCB SYNed to this one. */ 



OTHER STRUCTURES OF INTEREST 



del 1 attach description based aligned, 
2 length fixed bin(17), 

2 string char (0 refer (attach_description. length) ); 

open description based aligned, 
length fixed bin(17), 

string char (0 refer (open^description. length) )| 



# iocb.attach_descrip_ptr 



Q BY DEFINITION r IF THIS IS NULL, IOCS IS DETACHED 



Q THE ATTACH DESCRIPTION OF AN lOCB SYNED TO ANOTHER IS A DESCRIPTION 
OF THE SYNONYMIZATION, NOT A COPY OF THE OTHER lOCB'S ATTACH 
DESCRIPTION 



del 1 
2 
2 
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REVIEW OF lOCB'S 



# iocb.attach_data_ptr 

B IS OPTIONALLY USED BY THE I/O MODULE TO LOCATE AN INFORMATION 
STRUCTURE WHOSE FORMAT AND CONTENT IS MODULE-DEPENDENT 

1 I/O MODULES AREN'T ALLOWED TO STORE SUPPLEMENTARY ATTACH DATA 
ANYWHERE ELSE 



• iocb.open-^descrip^ptr 

I BY DEFINITION , IF NULL, THE lOCB IS CLOSED 



• iocb.opetvdata^ptr 

n ANALOGOUS TO attach data ptr 



• iocb . ios^compatib il ity 

II POINTS TO A MODULE THAT SIMULATES ALL FUNCTIONS OF THE OBSOLETE 
I/O SWITCHING MECHANISM, ios 
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SYNONYMING 

• SYNONYMIMG IS ACCOMPLISHED THRU THE USE OF THE syn I/O MODULE 
WHICH: 

Q ATTACHES AN I/O SWITCH, x, AS A SYNOKYM FOR ANOTHER SWITCH, y 

Q THEREAFTER, PERFORMING AN OPERATION ON % (EXCEPT FOR JDETACH) HAS 
THE SAME AFFECT AS PERFORMING IT ON y 

• THE ONLY WAY TO MAKE SYNONYMING BEHAVE DIFFERENTLY THAN DESCRIBED 
ABOVE IS TO USE THE -inhibit CONTROL ARGUMENT IN THE ATTACH DESCRIPTION 

Q iocb.syn_inhibits 

Q FIRST 15 BITS MAP TO iocb.open THRU iocb.read length (detach 
CAN NOT BE INHIBITED) 

Q WHEN A BIT IS ON, error_table_$no_operation IS RETURNED _ 
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SYNONYMING 



!io attach y vfile_ my^file 



!io open y stream_input 

!io attach x syn_ y 

lio print iocb y 
lOCB «y" § 257127320 
SYN son is "X" § 257127160 

attach description: "vfile_ >udd>MEDmult>F15D>new>my file", 

attach data at 25713^5^ 
open description: '»stream_input" , open data at 257127^62 

command loop $err not closed (27112370) 



detach_iocb 
open 
close 
get_line 
get^chars 
put__chars 
modes 
position 
control 
reader ecord 
write^record 
rewrite_record 
delete_record 
seek^key 
read_key 
read length 



>sl1>boun"3 
n 

>sss>bound^ 

>sss> bound] 

>S3S>bound[ 

> si 1> bound' 
n 

>sss>bound_ 
>sss> bound' 
>i5l1> bound" 



vfile $close file (370155265) 
Vfile_$get_llne_uns_file (3701722) 
Vf ile_$get_chars_uns_f ile (370 1542) 
'command_loop_$err_no_operation (271 12360) 

vfile $position uns file (37011142) 
Vf ile_$control_uns_Tile ( 370 | 265 ) 
[command_loop_$err_no_operation ( 271 1 2360 ) 



!dcn >sl1>bound_command loop 2360 
2360 iox " 



1114 
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SYNONYMING 



!io print iocb x 

lOCB »»x«'"§ 257127160 (actual IOCB is "y" Q 257127320) 
SYM father is «y« t 257127320 

attach description: "syn_y", attach data at 25713^666 
open description: "stream input", open data at 257! 27462 



detach^iocb 

open 

close 

get_line 

get_chars 

put^chars 

modes 

position 

control 

read^record 

write^record 

r ewr iTe^r ecor d 

delete_record 

seek^key 

read^^key 

read^length 



>sll>boun^ command loop_$syn detach (271173205) 
>sl1>bound'"command""loop $err''not closed (27112370) 
>sss>bound';vfile_$close~file'~(37TJ| 55265) 
>sss>bound3vfile'"$get lTne_uns file (3701722) 
>sss>bound_vf lle~$get3chars_uns_file (3701542) 
>sl1>bound command loop $er7 no'"operation (271i2360) 
It ■ ■.■,"".„-,■ "*"■•,, 

>sss>bound vfile $position_uns file (370!1142) 

>sss>bound[]]vfile~$control_uns_Tile (3701265) 

>sl t>bound^command_loop_$err^no_oper ation ( 27 1 1 2360 ) 
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SYNONYMING 



!io attach inhibited syn_ y -inhibit close 
!io print iocb inhibited 

lOCB "inhibited" § 257127020 (actual IOCB is "y" § 257127320) 
SYN father is "y" Q 257127320 
SYN brother is "x" § 257127160 

attach description: "syn_ y -inh close", attach data at 257135402 
open description: "stream__input" , open data at 257127462 
detach_iocb 
open 
close 
get_line 
get^chars 
put^chars 
modes 
position 
control 
read record 
write__record 
rewrite_record ** 
delete_record " 
seek_key " 
read_key « 
read^length " 

!pat y X inhibited 

y vfile_ >udd>MEDmult>F15D>new>my_file 

streani_input 

X syn_ y 

inhibited syn_ y -inh close 

I io close inhibited 
io call: Invalid I/O operation, inhibited 



>sl1>bound command_loop_$syn_detach (271173205) 
>sl1>bound~command_loop_$err_not_closed (271 12370) 
>sl1>bound_command_loop_$err_no_operation (27112360) (inh) 
>sss>bound_vfile_$get_line_uns_file (370 1722) 
>sss>bound_vfile_$get_chars_uns_file (3701542) 
>sl1>bound_command_loop $err_no operation (27112360) 

>sss>bound_vf ile_$position_uns file (37011142) 
>sss>bound_vfile_$control_unsJ?ile (3701265) 
>sl1>bound_command_loop_$err_no_operation (27112360) 



I pat y 

y 

I io close X 



vfile_ >udd>MEDmult>F15D>new>my_file 
stream^input 



Ipat y X inhibited 

y vfile_ >udd>MED3iult>F15D>new>my_file 

(not open) 
X syn_ y 

inhibited syn_ y -inh close 
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SYHOHYHING 



THE HIDDEN 
PORTION SUPPORTS 

SYNONYMING 



mer^input 



syn_brother 



actual„iocb_ptr 




«o attach x syn__ user_output 
to attach y $yn„ iner_output 
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IPX ENTRY POINTS USED IN I/O MODULES 

• THE FOLLOWING iox ENTRY POINTS ARE GENERALLY OF USE TO USERS WRITING 
I/O MODULES: 

tt iox_$propagate 

0 REFLECTS MODIFICATIONS MADE TO AN ULTIMATE lOCB BACK TO ALL 
MEMBERS OF THE "SYNONYM FAMILY" 

8 MUST BE CALLED AT CERTAIN POINTS IN THE I/O MODULE AND NOT 
UNDER ANY OTHER CIRCUMSTANCES 

S DOES INDEED PROPAGATE INHIBIT BITS BACKWARD TO THE SONS 

B iox_$find_iocb_n 

Q USED TO FIND (ONE AT A TIME) ALL EXISTING lOCBS IN THE CALLING 
RING» WHETHER ATTACHED OR DETACHED 

1 SEE print_attach_table COMMAND 

I iox_$look_iocb 

S RETURNS A POINTER TO THE lOCB FOR THE NAMED SWITCH IF IT 
EXISTS 



Not To Be Reproduced 



6-19 



F15D 



lOX ENTRY POINTS USED IN I/O MODULES 



Q iox_$err_no operation 
i o x_$ err_no"E_open 
iox_$err_not_ciosed 
iox'*$err not attached 



D THESE ENTRY VALUES ARE ASSIGNED TO ENTRY VARIABLES IN THE 
lOCB irUIDUR TO RETURN AN ERROR CODE WHEN THAT ENTRY VARIABLE 
IS CALLED 



S THESE ENTRY POINTS SET THE VALUE OF THE 'code* ARGUMENT TO 
ONE OF THE FOLLOWING: 



error^table_$no_^operatiori 
error_table_$not_open 
error_table_$not_closed 
error table $not attached 
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TOPIC VII 
Writing I/O Modules 
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INTRODUCTION 



RECOMMENDED READING: THE Multics USER RING I/O SYSTEM PLM (Order No, 
AN57) AND CHAPTER 4 IN THE SUBSYSTEM WRITERS* GUIDE, 



• SOME INSTANCES IN WHICH A USER MIGHT WISH TO CREATE A NEW I/O 
MODULE ARE: ' 



a TO USE A PSEUDO DEVICE OR FILE 

Q AN I/O MODULE COULD BE USED TO SIMULATE I/O TO/FROM A DEVICE 
OR FILE (discard IS AN EXAMPLE) 



Q TO SUPPORT A NEW FILE TYPE, SUCH AS ONE IN WHICH RECORDS HAVE 
MULTIPLE KEYS 



1 REINTERPRETING A FILE 



AN I/O MODULE COULD BE DESIGNED TO OVERLAY A NEW STRUCTURE ON 
A STANDARD TYPE OF FILE (E.G., INTERPRETING AN UNSTRUCTURED 
FILE AS A SEQUENTIAL FILE BY CONSIDERING 80 CHARACTERS AS A 
RECORD 



Q TO MONITOR A SWITCH 



B- AN I/O MODULE COULD BE DESIGNED TO PASS OPERATIONS ALONG TO 
ANOTHER MODULE WHILE MONITORING THEM IN SOME WAY 



D SEE audit 



Q TO SUPPORT AN UNUSUAL DEVICE 

B BY WORKING THROUGH THE tty I/O MODULE IN THE *RAW' MODE, 
ANOTHER I/O MODULE MIGHT TRANSMIT DATA TO/FROM A DEVICE THAT 
IS NOT A STANDARD Multics DEVICE 

Not To Be Reproduced 7-i F15D 



IMPLEilENTATION RULES 



• SEVERAL IMPLEMENTATION RULES MUST BE FOLLOWED FOR PROPER OPERATION 
WITHIN THE Multics I/O ENVIRONMENT 



• IN BRIEF, THE RULES ARE: 



Q EXCEPT FOR THE ATTACH OPERATION, THE ENTRY DECLARATION AND 
PARAMETERS OF A ROUTINE THAT IMPLEMENTS AN I/O OPERATION ARE THE 
SAME AS THAT OF THE CORRESPONDING ENTRY IN iox 



Q FOR EXAMPLE, IT IS NOT PERMISSIBLE TO DECLARE THE ENTRY VALUE 
FOR THE »put_chars« OPERATION AS ANYTHING BUT THE DECLARATION 
OF iox $put chars, WHICH IS 'entry (ptr, ptr, fixed bin(21), 
fixed bin(35"))' 



D THE ATTACH OPERATION ACCEPTS FOUR ARGUMENTS: 

(ptr, (»)char(») varying, bit{1) aligned, fixed bin (35)) 
CORRESPONDING TO: 

(iocb_ptr, option array, comber r^switch, code) 



Q EXCEPT FOR ATTACH AND DETACH, THE "ULTIMATE" lOCB MUST BE REFERENCED 
USING THE VALUE OF iocb ptr->iocb.actual_iocb ptr - IT IS INCORRECT 
TO USE JUST iocb ptr " 



Q IF AN I/O OPERATION CHANGES ANY VALUES IN THE ULTIMATE IOCB, THE 
I/O MODULE MUST CALL iox_$propagate BEFORE RETURNING : 



0 ALL I/O OPERATIONS MUST BE EXTERNAL ENTRY POINTS 
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IMPLEMENTATION JiULES 

• WHEN MODIFt'tNG AN IOCS IPS (INTER PROCESS SIGNAL) INTERRUPT (quit, 
alrm OR cput) CANNOT BE TOLERATED 

• I/O MODULES SHOULD MASK IPS SIGNALS AT FOLLOWS: 

. 'tr' ">■ 

Q ESTABLISH AN any_other HANDLER THAT CALLS terminate process^ IF 
MASKING IS IN EFFECT 

1 .J call; hcs_$set_ips_mask ( 0 , mask) 

fl CHANGE THE IOCS 

Q CALL hcs $reset ips mask (mask, mask) 
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ENTRY f*cyrHTS OF AN I/O MODULE 



• AN I/O MODULE TYPICALLY HAS ENTRY POINTS FOR THE FOU,OWING> 
ATTACH OPERATION 
OPEN OPERATION 
CLOSE OPERATION 
DETACH OPERATION 

ANY OTHER OPERATION ENABLED BY THE ABOVE 



• THE FOLLOWING IS A SIMPLIFIED SUMMARY OF THE STEPS TAKEN BY THE 
FIRST FOUR OF THE ABOVE ENTRY POINTS 



Q TO AVOID ADDED CONFUSION, DETAILS ABOUT THE HANDLING OF CONTROL 
ORDERS AND MODES IS OMITTED 



S COMPLETE DOCUMENTATION OF THE FOLLOWING IS FOUND IN THE SWG 
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ENTRY POIItTS OF AN; I^Q MODULE 



• vmJpRJST^S OF THE ATTACH OPERATION 



8 



SET io«b^pfcr->iocb.open APPROPRIATELY 



SET loel>^ptr^>to.cb,detach_iocb a:pPROPRIATELY 



B 



SET i6ob^ptr->attach_de5crip_^ptr APPROPRIATELY 



fl 



CALL iQX^$iiropagate 



# MAJOR. STEPS OF OPEN. OPERATION 

B SET actual iocb ptr->iocb.<operation> FOR EVEWY OPERATION THAT 
IS ALLOWED TPPR^TPRIATELY 

B SET actual^iocb_ptr->open descrip^ptr APPROPRIATELY 

B CALL iox $propagate 
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ENTRY POINTS OF AN I/O MODULE 

• MAJOR STEPS OF CLOSE OPERATION 

0 SET actual_iocb_ptr->iocb.open APPROPRIATELY 

S SET actual_iocb_ptr->iocb.detach_iocb APPROPRIATELY 

B SET actual_iocb_ptr->open_descrip_ptr TO NULL 

g CLEAN UP (SET BIT COUNTS, FREE STORAGE, ETC,) 

S CALL iox_$ propagate 

• MAJOR STEPS OF DETACH OPERATION 

0 SET iocb_ptr->iocb.attach_descrip_ptr TO NULL 
Q CALL iox $propagate 
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• THE FOLLOWING BEHAVES EXACTLY LIKE THE SYSTEM MODULE discard (IT 
IS NOT THE CODE FOR discard^ ALTHOUGH MUCH OF THE CODE IS VERY 
SIMILAR) 

ray_discard_attach: proc(iocb_ptr , opt ion_array,com__err_switch, code) ; 

del option arrayC*) char(*) varying; 
del buflen"*fixed(21); 

del bufptr ptr; 

del extend__bit bit(l) aligned; 

del infptr ptr; 

del ioeb^ptr ptr; 

del key char (256) varying; 

del len fixed (21); 

del eom_err_switeh bitCD aligned; 

del mode fixed; 

del newmode char(*); 

del oldmode ehar(*); 

del order ehar(*); 

del any_other condition; 

del blkptr ptr; ' - 

' del actual iocb_ptr ptr; 
del code fTxed(35); 
del mask bit(36) aligned; 

%inelude iocb; 

del 1 block based (blkptr), 
2 attach deserip aligned, 

3 length fixed bind?) init.(11), 

3 string char (11) init ("my_diseard_") , 
2 open deserip aligned , 

3 length fixed bin (17), 

3 string char (40); 

del free_area area based (get_system free area^O); 

del get_system_free_area__ entryO reTurnsTptr) ; 

del com^err^ ext entry options( variable) ; 

del hcs_$set_ips mask entry (bit(36) aligned, bit(36) aligned); 

del hes_$reset_ips_mask entry (bit(36) aligned, bit(36) aligned); 

del iox_$propagate~ext entry (ptr); 

del iox_$err not open entryO options(variable) ; 

del error__taFle_?bad_mode fixed (35) ext; 

del error_tabie_$not~detaehed fixed bin(35) ext; 

del error table~$no_Feeord fixed(35) ext; 

del error~table_$wrong__^no_of_args fixed (35) ext; 

del error table $no operation fixed (35) ext; 
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EXAMPLE OF AN I/O MODULE 



del stream output mode fixed int static init(2); 

del sequen'^ial_ou"Eput__mode fixed int static init(5); 

del keyed sequential output mode fixed int static init(9); 

del direc^_output_mo^e fixeH int static init(12); 

del Caddr,hbound, null, size) built in; 

/* Start Executable Code */ 

mask s "0*»b; 

on any_other call handler; 

call hcs $set ips_mask ("0"b, mask); 

if hbouh3(optTon array, 1)>0 then 

call error Terror_table_$wrong_no__of_args) ; 
if iocb ptr->iocb.atta'ch_descrip ptr*snull() then 

caTl error (error_table $noT_detaehed) ; 
allocate block in (free_area7; 
iocb_ptr->iocb . attach^deser ip^ptr , 

ioeb_ptr->iocb«attaeh__data_ptr = addr(attach_descrip) ; 

iocb_ptr->iocb,detach^iocb = my__diseard_detaeh; 

iocb3ptr-> iocb. open = my^discarH^open; " 

call iox^$propagate{ ioeb^ptr) ; 

call hcs3$reset_ips_maskTmask,mask) ; 

return; ^ ■ 



/* Internal procedure to handle all attach errors. 
Calls "com_err "if the "com err switch" is set. 
In any case, returns to caller o7 attach external 
procedure with proper error code after ensuring, 
that the IPS interrupt mask is restored. */ 



error: proc(c); 

del e fixed(35); 
^ if mask'^="0"b then call hes_$reset_ips_mask(mask,niask) ; 
if com_err_switeh then call 

eom_err_ (c, ^my_diseard_") ; 
■■ code = e; 
^ ' go to exit; 
end error; 
exit: return; 

my^discard^detach: entry(iocb_^ptr, code); 
codecs 0; ~ 
- mask = "0"b: 

on any^othef call handler; 

call hcs $set_ips_mask ("0"b, mask); 

free ioe¥ ptr->iocb.attach_data ptr -> block; 

ioeb_ptr-7ioeb.attaeh_descrip_pTr = nyllO; 

call''iox_$propagate( iocb ptr); 

call hcs_$reset_ips_maskTmask,mask) ; 

return; 
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EXAMPLE OF AN I/O MODULE 



my discard^open: entry(iocb_ptr , mode, extend^bit, code) ; 
" mask = "0"b; ~ 
on any^other call handler; 
call hcs_$set__ips_mask ("0"b, mask); 
actual_iocb_ptr = iocb_ptr->iocb.actual_iocb_ptr ; 
blkptr""= actual_iocb_ptr->iocb.attach_data_ptr ; 

if modes stream_output_mode then do; 
blkptr->open_descrlp. string = "stream^output" ; 
blkptr->open_descrip. length =13? 

actual_iocb_ptr->iocb,put__chars s my_discard_put_chars; 

actual iocb3ptr->iocb .modes s my discard_modes; 

actual3iocb_ptr->iocb .control = my__discard_^control; 

end ; " ~" 
else if modes sequential_output mode then do; 

blkptr->open_descrip.strTng = ** sequent ial_output** ; 

blkptr->open_descrip.length s 17; " 

actual_iocb_ptr->iocb.write_^record = my_discard__write; 

end ; ~ 
else if mode=keyed_sequential_output_mode then do; 

blkptr->open''descrip. string = ^keyed sequential^output**; 

blkptr->open~descrip .length s 23; 

• actual_^iocb_ptr->iocb.write_record s my__discard_write; 
actual^iocb ptr->iocb.seek key s my discard_seek key; 
end; ^ " - - - 

else if modesdirect_output_mode then do; 
( blkptr->open descripTstring s "direct output"; 

blkptr->open~descrip. length s 13; ~ 

actual_iocb_ptr->iocb.write_record = my_discard_write; 

actual]3iocb~ptr->iocb.seek_l€ey a my_discard_S€ek__key; 

end; " ^ 

else do; 

call hes^$reset ips maskCmaskymask) ; 
code = error_taBle_fbad_mode; 
return; ~ 
end; 

if extend^bit then blkptr->open_descrip, string 
s blkptr->open_descrip,stringl } " -extend"; 
- actual_iocb_ptr->iocb,open_descrip ptr - addr(open_descrip) ; 

actual~iocb_ptr->iocb. close s my^dTscard^^close;. " 
call iox^$propagate( actual iocb_Jptr); 
call hcs3$reset_ips_mask(mask,mask) ; 
return; ~ 
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EXAMPLE OF AN I/O MODULE 



iny_discard_close: entryC iocb^ptr, code); 
code =0; " ' 

mask = "0"b; 
on any other 

calT handler; 
call hcs_$set_ips_mask ("0"b, mask); 
actual iocb ptr = iocb ptr->iocb.actual_iocb ptr; 
blkptr s ac'^ual_iocb_p^r->iocb.attach_data_p^r; 
actual_iocb_ptr->iocb,open_descrip_ptr s nulK); 
actual_iocb~ptr->iocb.detach_iocb = my discard^detach: 
actual_iocb_ptr-> iocb. open = my__discarH_open; 
actual_iocb"ptr-> iocb .control s"iox_$err_not_open; 
actual_iocb_ptr-> iocb .modes = iox_$err_not_open; 
call iox_^$propagate(actual_iocb_ptr) ; ~ 
call hcs3$reset_ips_mask(mask,mask) ; 
return; . " 

my_discard_put_chars: entry(iocb_ptr ,buf ptr ,buflen, code) ; 
code's 0; 
return; 

my_discard_modes: entry(iocb_ptr ,newmode,oldmode,code) ; 
~ codecs 0; 

oldmbde s . 
return; 

my_discard_write: entry(iocb_ptr ,buf ptr ,buflen, code) ; 
code'^s 0; 
return; 

my_discard_control : entryCiocb^ptryorder , inf ptr , code) ; 

if order r "io^call" then code r error_^table_$no_^operation; 
else code =0; ^ ■ . ^ ' 

return; 

my discard seek key: entry(iocb__ptr , key, len, code) ; 
len s 0; ^ 

code = error_tabie_$no_record; 
return; "* 



Not To Be Reproduced 



7-10 



F1 



EXAMPLE OF AN I/O MODULE 



/* Internal procedure to handle faults while IPS interrupts 
are masked. While not masked, any signals are simply 
passed on up the stack to their normal handlers. For a 
fault while masked, the process is terminated (with the 
reason "unable to do critical I/O") because the I/O 
control blocks are in an inconsistent state, and we can 
tolerate neither spawning a command loop with interrupts 
masked nor a restart with a possibly changed mask. */ 

handler: procedure; 

del continue_to_signal_ entry (fixed bin(35))| 
del terminate process entry (char(*), ptr); 
del error_tabTe $unabTe to do io fixed(35) ext; 
del 1 ti " " " ~ aligned, 

2 version fixed bin init (0), 

2 code fixed bin (35); 

if mask "0"b 
then 
do; 

ti.code s error_table_$unable to_do_ioj /• very bad trouble 
call terminate_process_ ("fatal^error" , addr (ti)); 

_end; ■ — — — 

call continue^to signal^ (0); 
end handler; " 

end my discard attach; 
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EXAMPLE OF AN I/O MODULE 



YOU ARE NOW READY FOR WORKSHOP 
#3 
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TOPIC YIII 
Interprocess Communication 
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OVERVIEW 



• THE SUBSYSTEM DESIGNER IS OFTEN FACED WITH REQUIREMENTS FOR 
SOPHISTICATED INTERPROCESS AND INTRAPROCESS COMMUNICATIONS FACILITIES 



• SUBROUTINES EXIST WHICH ALLOW THE DESIGNER TO HANDLE: 



I SYNCHRONIZATION OF SEVERAL COOPERATING PROCESSES 



B ipc FACILITATES INTERPROCESS COMMUNICATION VIA "STOP AND G0« 
SIGllALS BETWEEN PROCESSES 



0 PROTECTION OF CONCURRENTLY ACCESSED DATA BASES 



B set__lock_ ALLOWS COOPERATING PROCESSES TO SHARE A CRITICAL 
DATA BASE IN A CONTROLLED MANNER 



0 INTRAPROCESS TIMING 



-1-1 timer manager ALLOWS A PROCESS TO MAKE USE OF SEVERAL CPU OR 
REAL-TIME TIMIRS 



Not To Be Reproduced 



8-1 



F15D 



OVERVIEW 



CONCEPT: 



B INTERPROCESS COMMUNICATION MEANS THAT TWO DISTINCT PROCESSES CAN 
PASS INFORMATION BACK AND FORTH BETWEEN THEM 



A SIMPLE FORM OF INTERPROCESS COMMUNICATION MIGHT INVOLVE THE 
SHARING OF A COMMON SEGMENT BETWEEN TWO PROCESSES 



THIS SIMPLE FORM OF COMMUNICATION DOES NOT ALLOW FOR DIRECT 
SYNCHRONIZATION, HOWEVER 



Q Multics SUPPORTS A FULL INTERPROCESS COMMUNICATION FACILITY WHICH 
ALLOWS FOR CONTROL COMMUNICATION BETWEEN PROCESSES BY MEANS OF 
•STOP» AND 'GO* SIGNALS 
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OVERVIEW 



• THE INTERPROCESS COMMUNICATION MECHANISM 



I IS IMPLEMENTED BY THE ipc_ AND hcs_$wakeup SUBROUTINES 



B IS ACTUALLY MANAGED/ COORDINATED BY THE Multics "TRAFFIC 
CONTROLLER", WHICH IS RESPONSIBLE FOR THE CREATION, DELETION, 
AND DISPATCHING OF PROCESSES 



Q THE DISCUSSION WHICH FOLLOWS WILL NOT DWELL ON TRAFFIC CONTROLLER 
CONCEPTS (SEE F80B) 



# EXAMPLE OF INTERPROCESS COMMUNICATION: THE »send_niessage» AND 
»accept_message* COMMANDS ' ^ 



Q THEY MAKE USE OF THE IPC FACILITY TO PASS TEXT MESSAGES FROM ONE 
PROCESS TO ANOTHER BY HAVING THEM PRINTED UPON THE RECEIPT OF A 
•WAKEUP» 
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IPC TERMINOLOGY 



• event 



Q AN EVENT IS THE OCCURRENCE OF SOMETHING SIGNIFICANT 



B ONE PROCESS INFORMS ANOTHER THAT AN EVENT HAS OCCURRED BY CALLING 
hcs $uakeup 



Q A PROCESS WILL ONLY RECEIVE NOTIFICATION OF AN EVENT WHEN IT IS 
"BLOCKED" 

B DO NOT ASSUME THAT ONLY "SLEEPING" PROCESSES ARE SUBJECT TO "WAKING 
Upn 

• event channel 

B IS THE ONE-WAY CONTROL PATH OVER WHICH NOTIFICATION OF THE OCCURRENCE 
OF EVENTS IS TRANSMITTED 

fl IS MAINTAINED BY TRAFFIC CONTROLLER 

Q IS CREATED ON BEHALF OF A USER IN A PARTICULAR KING 
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IPC TERMINOLOGY 



• event-wait channel 



AN EVENT CHANNEL WHICH, WHEN NOTIFIED OF AN EVENT, CAUSES THE 
PROCESS TO RESUME EXECUTION IF IT WAS "WAITING" (MORE TECHNICALLY, 
"BLOCKED") , OR AN EVENT CHANNEL WHICH MAY PERIODICALLY BE "POLLED" 
TO DETERMINE IF THE EVENT OCCURRED 



event-call channel 



AN EVENT CHANNEL WHICH, WHEN NOTIFIED OF THE OCCURRENCE OF AN 
EVENT, CAUSES THE INVOCATION OF A SPECIFIED PROCEDURE IN THE 
PROCESS THAT CREATED THE CHANNEL 



blocked 



A PROCESS CAN GO "BLOCKED" ON AN EVENT-WAIT CHANNEL, IN WHICH 
CASE IT WILL RESUME EXECUTION UPON EVENT NOTIFICATION 



IS A PROCESS STATE IN WHICH THE PROCESS IS INACTIVE AND "LISTENING" 
TO AN. EVENT-WAIT CHANNEL (OR CHANNELS) 



wakeup 



Q A WAKEUP IS THE NOTIFICATION OF THE OCCURRENCE OF AN EVENT 



II IS SENT TO A SPECIFIC PROCESS ACROSS A SPECIFIED EVENT-WAIT OR 
EVENT-CALL CHANNEL 
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IPC TERMINOLOGY 



channel id 



e IS THE fixed bin(71) VALUE WHICH IS USED TO UNIQUELY IDENTIFY A 
PARTICULAR EVENT CHANNEL 



6 IS DERIVED FROM THE SYSTEM CLOCK 



Q IS ASSOCIATED WITH ONE AND ONLY ONE PROCESS 



process^^id 

I IS THE bit(36) VALUE WHICH UNIQUELY IDENTIFIES A PROCESS 



K IN XDRDER TO SEND A WAKEUP, ONE SPECIFIES THE channel id OF THE 
EVENT CHANNEL AND THE process id OF THE PROCESS OWNINCTTHE EVENT 
CHANNEL 



uiessage 



D A 72-BIT VALUE OF ARBITRARY CONTENT CONTAINING INFORMATION WHOSE 
INTERPRETATION IS ICFFUIUITION DEPENDENT 
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IPC TERMINOLOGY 



CHANNEL TYPE 



OPTIONS 



event-call 



When a process establishes an event call channel, 
execution proceeds with the statement immediately 
following the call to create the event-call channel. 
The process does not (and should not) go blocked 
on the channel. If /when a wakeup is received, 
execution is momentarily interrupted and the 
procedure specified in the declaration is invoked « 
When this procedure completes, execution of the 
interrupted procedure continues. 



event-wait 



There are two options available? 



1) The process can explicitly go blocked on 4;he 
channel by calling ipc_$block. In this case, 
the statement following the call to ipc $block 
will not be executed until/unless a walceup is 
received on that channels Notice that this 
effectively blocks the process itself. 



2) The process may elect not to go blocked on 
this channel at all. Rather it will, from time 
to time, explicitly inquire as to whether or 
not a wakeup has been received. 

This polling technique is implemented via the 
ipc_$read_ev_chn entry point. 
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IPC PROTOCOL 



• SINCE IT IS NECESSARY TO KNOW THE channel id AND process_id IN 
ORDER TO COMMUNICATE WITH ANOTHER PROCESS, lOME STANDARD PROTOCOL 
IS REQUIRED 



• THE STEPS REQUIRED TO SET UP INTERPROCESS COMMUNICATION: 
fl STEP 1 

Q PROCESS 1 CREATES AN EVENT CHANNEL, BY WHICH ACT PROCESS 1 
receive! THE channel_id OF THE NEWLY CREATED EVENT CHANNEL ~ 

■ ^ 

e STEP 2 

Q PROCESS 1 STORES THE channel id AND ITS OWN process id IN 
SOME KN^WN LOCATION IN A SHARlD SEGMENT, THUS ALLOWINlT THESE 
VALUES TO BE ACCESSED BY OTHER COOPERATING PROCESSES 

i STEP 3 

U SOME OTHER PROCESS, SAY PROCESS 2, OBTAINS THE process id AND 
channel id VALUES FROM THE SHARl^D SEGMENT 



• IT IS NOW POSSIBLE FOR PROCESS 2 TO SEND WAKEUPS TO PROCESS 1 
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# COMMUNICATION ON AN EVENT CHANNEL IS ONE-WAY ONLY 



• IF PR0CESS_1 WISHES TO COMMUNICATE VIA ipc_ WITH PR0CESS_2 IN THE 
ABOVE SCENARIO: 



B PROCESS 2 WOULD NEED ITS OWN EVENT-CHANNEL 



B IT WOULD BE. NECESSARY FOR PROCESS 2 TO REPEAT THE STEPS OUTLINED 
ABOVE 



• WHENEVER INTERPROCESS COMMUNICATION IS USED BETWEEN USER PROCESSES 
AND A SYSTEM PROCESS . A SUBROUTINE IS GENERALLY CALLED TO OBTAIN 
THE channel id AND process id OF THE SYSTEM PROCESS 
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SENDING WAKEUPS 



• WAKEUPS ARE SENT FROM ONE PROCESS TO ANOTHER BY CALLING THE hcs $wakeup 
ENTRY POINT 



Q USAGE 

call hcs_$wak8up (process^ld, channel id, message, code); 



Q process id SPECIFIES TARGET PROCESS 



B channel id IDENTIFIES CHANNEL THAT WAS SET UP BY TARGET PROCESS 



D message IS TWO WORDS HAVING SOME AGREED-UPON MEANING FOR THE 
COOPERATING PROCESSES 



0 code IS A NON-STANDARD ERROR CODE (NOT IDEALLY SUITED TO comber r_) 

Q = 1 IF SIGNALLING WAS CORRECTLY DONE, BUT THE TARGET PROCESS 
WAS IN THE STOPPED STATE (THE STATE A PROCESS IS IN JUST 
BEFORE THE FINAL STEP IN PROCESS TERMINATION) 

D = 2 IF AN INPUT ARGUMENT WAS INCORRECT, AND SIGNALLING WAS 
ABORTED 

B = 3 I F THE TARGET PROCESS WAS NOT FOUND, AND SIGNALLING 

WAS ABORTED 

0 = error table $invalid channel IF THE CHANNEL IDENTIFIER 
WAS NOT "VALID"" 
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• EVENT CHANNELS ARE CREATED, DESTROYED, AND MANIPULATED VIA THE ipc 
SUBROUTINE 

• ipc_ ENTRY POINTS MAY BE CLASSIFIED: 

B CREATING AND DESTROYING EVENT CHANNELS 
Q ipc_$create^ev^chn 
D ipc_$delete_ev_chn 
fl ipc_$decl_^ev_call_chn 
Q ipc_$decl_ev_wait_chn 

B GOING BLOCKED ON AN EVENT_WAIT CHANNEL 
Q ipc_$block 

B READING AN EVENT-WAIT CHANNEL 
B ipc $read ev chn 
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Q CONTROL FUNCTIONS 
0 ipc_$drain_chn 
Q ipc_$cutoff 
Q ipc_$reeonnect 

Q MASKING OR ASSIGNING PRIORITY TO EVENT CHANNELS 
Q ipc_$set_call_prior 
D ipc_^$set_wait_prior 
0 ipc_$mask_ev_calls 
Q ipc $unmask ev calls 
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IPC ERROR CODES 



ALL CALLS TO ipc_ RETURN A NONSTANDARD STATUS CODE 



CODE MEANING 

0 No error. 

1 A ring violation; for instance, the evWnt channel 

resides in a ring that is not accessible from 
the caller's ring. 

2 The table that contains the event channels for 

a given ring was not found. 

3 The specified event channel was not found. 

4 A logical error in using the ipc_ subroutine 

was encountered; for instance, waiting on an 
event-call channel. 



A bad argument was passed to the ipc_ subroutine; 
for instance, a zero-value event cHannel id. 
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IPC ERROR CODES 



convert^ipc^code^ 



Q AN OBSCURE SUBROUTINE THAT CONVERTS A NONSTANDARD ipc CODE TO A 
SYSTEM STANDARD CODE 



MAPPING 

ipcode returned code 

0 0 

1 error_table_^$bad_ring_brackets 
2-4 error_table^$no_i!iessage 

5 error table $argerr 
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CREATING AND DESTROYING EVENT CHANNELS 



ipc CREATES EVENT -WAIT CHANNELS BY DEFAULT; HENCE, IN ORDER TO 
CREITE AN EVENT-CALfTTHANNEL, IT IS FIRST NECESSARY TO CREATE AN 
EVENT-WAIT CHANNEL, AND THEN TO CHANGE IT INTO AN EVENT-CALL CHANNEL 



ENTRY POINTS TO CREATE AND DESTROY CHANNELS 



g ipe_$create_ev_chn 



CREATES AN EVENT-WAIT CHANNEL IN THE CURRENT RING, RETURNING 
THE channel_id OF THE NEWLY CREATED CHANNEL, AND THE NONSTANDARD 
STATUS CODE 



Q ipc_$delete_ev_chn 

Q DESTROYS AN EVENT CHANNEL PREVIOUSLY CREATED BY THE PROCESS, 
REQUIRING THE channel_id OF THE CHANNEL TO BE DESTROYED AND 
RETURNING THE NONSTANDARD STATUS CODE 



B ONLY THE PROCESS CREATING AN EVENT CHANNEL (OR THE INITIALIZER 
PROCESS) MAY DESTROY IT 

B EVENT-CHANNELS ARE AUTOMATICALLY DESTROYEP AT PROCESS 
TERMINATION TIME 
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CREATING AND DESTROYING EVENT CHANNELS 



D ipc_-$decl_ev_call_chn 

B CHANGES AN EVENT-WAIT CHANNEL INTO AN EVENT-CALL CHANNEL 

Q call ipc $decl ev call chn (channel id, proc entry, 

^ - - — data^ptr, priority, code); 

g channel_id IDENTIFIES EVENT-WAIT CHANNEL TO BE CHANGED 

S proc entry IS ENTRY VALUE OF "HANDLER" TO BE INVOKED UPON 
RECEIPT OF WAKEUP 

B data_ptr POINTS TO A USER-DEFINED REGION CONTAINING DATA 
FOR proc^entry TO INTERPRET 

B priority INDICATES WHICH (OF POTENTIALLY MANY) SIMULTANEOUS 
EVENT-CALL CHANNEL EVENTS IN THIS RING WILL BE HONORED 
FIRST (THE LOWEST NUMBER IS HONORED FIRST) 

B ipc_$decl_ev_wait_chn 

0 USED TO CHANGE AN EVENT-CALL CHANNEL INTO AN EVENT-WAIT CHANNEL 

B IT REQUIRES THE channel^id OF AN EVENT-CALL CHANNEL AND IT 
RETURNS THE NONSTANDARD STATUS CODE 

e NOTE: SINCE EVENT-WAIT CHANNELS ARE CREATED BY DEFAULT, THIS 
IS USED ONLY TO CHANGE AN EVENT-CALL CHANNEL BACK INTO AN 
EVENT-WAIT CHANNEL 
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INVOKING AN EVENT-CALL PROCEDURE 



• WHEN A PROCESS IS AWAKENED ON AN EVENT-CALL CHANNEL, CONTROL IS 
IMMEDIATELY PASSED TO THE "HANDLER" PROCEDURE PREVIOUSLY SPECIFIED 
IN THE CALL TO ipc $decl ev call chn 



"HANDLER" WILL BE CALLED WITH ONE ARGUMENT, A POINTER TO A STRUCTURE 
CONTAINING INFORMATION ABOUT THE WAKEUP 



THE HANDLER SHOULD DECLARE THE FOLLOWING STRUCTURE BASED UPON 
THE event_call_info_ptr PARAMETER 

del 1 event_call info based (event_call info ptr) , 

2 channel^id" fixed bin(71), 

2 message fixed bin(71)» 

2 sender bit(36), 
2 origin, 

3 dev_signal bit(l8) unal, 

3 ring bit(18) unal, 

2 data^ptr ptr; 



Q RECALL: -THE VALUE OF data ptr WAS SPECIFIED IN THE CALL TO 
ipc_$decl_ev_call_chn AND POINTS TO STRUCTURE OF THE USER^S CHOOSING 



Q SEE >ldd>include>event_call_info.incl.pl1 
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IPC SUBROUTINES 
GOING BLOCKED ON AN EVENT CHANNEL 



• ipc $block 



Q CAUSES THE PROCESS TO GO BLOCKED ON THE SPECIFIED EVENT-WAIT 
CHANNELCS) 



IN-LINE PROGRAM EXECUTION WILL NOT PROCEED UNTIL/UNLESS A WAKEUP 
IS RECEIVED ON ONE OF THE CHANNELS 



Q USAGE 

call ipc $block (wait list ptr, event wait info ptr, code); 

— — ^ — ^— . — — . ^ 

I I I 

I I I 

I I I 

I I I 

INPUT INPUT OUTPUT 



A POINTER TO THE BASE OF A USER-ALLOCATED "WAIT-LIST" STRUCTURE 
IS REQUIRED 

Q THIS WAIT-LIST STRUCTURE CONTAINS THE channel^idS OF THE 
EVENT-WAIT CHANNELS TO GO BLOCKED ON (TO LISTEN TO) 

del 1 wait_list based aligned, 

2 nchan fixed bin, 

2 pad bit(36), 

2 channel^id (n refer wait^list .nchan) fixed bin(71); 
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IPC SUBROUTINES 
GOING BLOCKED ON AN EVENT CHANNEL 



ipc $block ALSO REQUIRES A POINTER TO THE BASE OF A STRUCTURE 
INTO WHICH IT CAN PUT INFORMATION ABOUT THE EVENT THAT FREED THE 
PROCESS FROM ITS BLOCKED STATE 

del 1 event_wait_info aligned based ( event^wait^info^ptr ) , 



2 channel^id 
2 message^ 
2 sender 
2 origin, 

3 dev signal 

3 ring 
2 channel index 



fixed binCTD, 
fixed bin(71), 
bit(36^ 



bit(18) unaligned, 
bit(18) unaligned, 
fixed bin; /» INDEX INTO 

wait list. channel id */ 



B POSSIBLE USE OF even t_wait_info. sender: 

PASS sender TO get userid SUBROUTINE (WHICH USES THE RESTRICTED 
SEGMENT >sct>answer_table) AND It WILL RETURN Person^id AND 
Project^id ^ " 



Q SEE >ldd>include>event_wait_info.incl.plt 
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IPC SUBROUTINES 
READING AN EVENT-WAIT CHANNEL 



• THE PROCESS CREATING AN EVENT-WAIT CHANNEL MAY SIMPLY INQUIRE AS TO 
WHETHER OR NOT AN EVENT HAS OCCURRED ON A SPECIFIED EVENT-WAIT 
CHANNEL - THIS IS REFERRED TO AS "READING" THE EVENT-WAIT CHANNEL 



READING THE EVENT "RESETS" IT 



i pc^$ r e ad^e v__chn 



D READS THE INFORMATION ABOUT AN EVENT ON A SPECIFIED EVENT-WAIT 
CHANNEL IF THE EVENT HAS OCCURRED 



REQUIRES AS INPUT THE channel id OF THE EVENT-WAIT CHANNEL TO BE 
READ 



RETURNS A VALUE INDICATING WHETHER OR NOT AN EVENT OCCURRED, AND 
IF AN EVENT HAS OCCURRED, RETURNS INFORMATION ABOUT THAT EVENT 
IN event wait info STRUCTURE 



Q ALSO RETURNS THE NONSTANDARD STATUS CODE 



Not To Be Reproduced 



8-20 



F15D 



IPC SUBROUTINES 
READING AN EVENT-WAIT CHANNEL 



! 11 70 

! pr DEMO_READ.pll 1 
DEMO^READ: proc; 
del 

ipc_$create_ev_chn entry (fixed bin (71), fixed bin (35)), 
ipc $delete_ev chn entry (fixed bin(71), fixed bin (35)), 
ipc'"$read ev cHn entry (fixed bin (71), fixed bin, ptr, 

~ fixed bin(35)), 

hcs $wakeup entry (bit (36), fixed bin (71), fixed bin (71), 

fixed bin (35)), 

addr builtin, 

ioa_ entry options (variable), 
com_err_ entry options (variable), 
get^process^id^ entry returns (bit (36)); 

del 

channel id fixed bin (71), ^ 
message'fixed bin (71), 
eode fixed bin (35), 
ev^oceurred fixed bin; 

% include event^info; /* My own private include file */ 

/* This short example illustrates the fact that reading an event-wait 
channel has the effect of 'resetting' it» */ . 

call ipc $creat@_ev_chn (channel^^id , code); 
if code 0 then call trouble; 
message r 1 ; 

call hcs^$wakeup (get_proeess_^id_ (), channel_id, message, 

" ^ eode) ; 

if code ""s 0 then call trouble; 

else call ioa_ ("WAKEUP successfully completed."); 
call ipc_$ readme v^chn (channel_id, ev^oceurred, 

" ^ addr (event_info) , code); 

if code 0 then call trouble; 

call ioa_ ("read_ev_chn says the event "[has not*;has*3 oecu 
\crred, and the message is *i.", ev_occurred+1 , event^info .message) ; 
call ipc_$ readme v^chn (channel^id, ev^occurred, 

~ " 'iddr (event_info) , code) ^ 

if code 0 then call trouble; 

call ioa_ ("A second call of read^ev^chn says: The event "^[h 
\cas not'*;has*3 occurred.", ev_occurred+1 ) ;^ 

trouble: proc; 

call com_err_ (eode, "DEMp^READ", "Something unexpected 

\c occurred*"); 

goto bottom; 
end trouble; 
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READING AN EVENT-WAIT CHANNEL 



bottom: 

call ipc_$delete ev^chn ( channel__id , code); 
/* Ignore bad co^e^ if it should^occur • */ 
end DEMO_READ; 

! DEMO READ 

WAKEUP'^successfully coispleted* 

read_ev_chn says the event has occurred, and the message is 1» 
A second call of read_ev_chn says: The event has not occurred. 
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IPC SUBROUTINES 
CONTROL FUNCTIONS 

• RESETTING CHANNELS AND INHIBITING THE NOTIFICATION OF EVENTS 
I tpc_.$dratn 

fl RESETS AN EVENT-WAIT CHANNEL SO THAT ANY PENDING EVENTS (EVENTS 
THAT HAVE BEEN RECEIVED AND QUEUED UP BUT NOT PROCESSED FOR 
THAT CHANNEL) ARE REMOVED 

Q REQUIRES THE channel^id OF THE EVENT-WAIT CHANNEL 

Q RETURNS THE NONSTANDARD STATUS CODE 

B OFTEN USED IN 'cleanup » HANDLERS 

Q ipc_$cutoff 

H INHIBITS THE "READING" (IN THE GENERAL SENSE) OF PENDING OR - 
FUTURE EVENTS ON A SINGLE SPECIFIED EVENT (WAIT OR CALL) CHANNEL 

B NOTE THAT MORE (NEW) EVENTS CAN BE RECEIVED (AND QUEUED UP), 
BUT THEY WILL NOT CAUSE THE PROCESS TO WAKE UP 

0 REQUIRES THE channel id OF THE EVENT CHANNEL TO CUTOFF, AND 
RETURNS THE NONSTAND^D STATUS CODE 

B AN ATTEMPT TO READ A CUTOFF CHANNEL RESULTS IN CODE ^ (A 
LOGICAL ERROR IN USING ipc WAS ENCOUNTERED) 
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CONTROL FUNCTIONS 



Q ipc_$reconnect 

B ENABLES THE READING OF EVENTS ON A SINGLE SPECIFIED EVENT 
CHANNEL FOR WHICH READING HAD PREVIOUSEITBEEN INHIBITED BY A 
CALL TO ipc_$cutoff 

B WHEN CALLED, ALL PENDING SIGNALS, WHETHER RECEIVED BEFORE OR 
DURING THE TIME READING WAS INHIBITED, ARE HENCEFORTH AVAILABLE 
FOR READING (IN THE GENERAL SENSE) 

B REQUIRES THE channel id OF THE EVENT CHANNEL WHICH HAD BEEN 
CUTOFF, AND RETURNS fliE NONSTANDARD STATUS CODE 
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CONTROL FUNCTIONS 



Iprint DEM0_CUT0FF.pl1 1 
DEM0_CUT0FF: proc; 

/* This experiment demonstrates the cutting off and reconnection of 
a single channel. It accomplishes this in the following steps: 



1 


get wait channel 


2 


issue wakeup with msg s 1 


3 


cutoff channel 


4 


issue wakeup with message s 2 


5 


reconnect 


6 


read channel twicei 


7 


delete channel 


ioa_ 


is called at strategic points to confirm ipc*s behavior. */ 



del 

channel_id fixed bin (71), 
code fixed bin (35), 
i fixed bin, 
ev^occurred fixed bin, 
addr bulltin, 

get_process_id_ entry returns (bit (36)), 
mes¥age fixed bin (71)? 

hcs $wakeup entry (bit (36), fixed bin (71), fixed bin (71), 

fixed bin (35)), 
ipc^$create_ev_chn entry (fixed bin (71), fixed bin (35)), 
ipc_$delete'"ev~chn entry (fixed bin (71), fixed bin (35)), 
ipc $cutoff'"en"Ery (fixed bin (71), fixed bin (35)), 
ipc^ireconnect entry (fixed bin (71), fixed bin (35)), 
ipc''$read ev chn entry (fixed bin (71 )j fixed bin, ptr, 
" " fixed bin (35)), 

(com_err_, ioa_) entry options (variable), 

1 event info aligned, 

2 channel_id fixed bin (71), 
2 message'"fixed bin (71), 

2 sender bit (36), 

2 origin, 

3 dev_signal bit (18) unaligned, 
3 ring bit (18) unaligned, 

2 channel^index fixed bin; 

call ipc $create_^ev_chn (channel^id, code); 
if code ^= 0 then call trouble; 

call ncs $wakeup (get process^id^ (), channel^id, 1, code); 

if code 0 then calT trouble; " " 

call ioa_ ("First wakeup successfully performed with msg = 1"); 

call ipc~$cutoff (channel^id, code); 

if code "^r 0 then call trouble; 

call ioa_ ("Channel successfully cutoff."); 

call hcs $wakeup (get process_id_ (), channel^id, 2, code); 

if code """s 0 then calT trouble; " 
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CONTROL FUNCTIONS 



call ioa_ (»*2nd wakeup performed while channel was cutoff."); 
call ipc $reconnect (channel id, code) ; 
if code 0 then call trouble; 
do i = 1 to 2; 

call ipc_$read_ev_chn (channel_id, ev^^occurred , 

" addr (event^info) , code); 

if code *s 0 then call trouble; 

call ioa ("^CFirst* ; Second'^] reading channel after reco 
\cnnect. The event ^Chasn' t* ;has*] occurred, "Cs^ ; '^/The message is * 
\ci.''3*S i, ev_occurred+1 , ev_occurred+1 , event_info .message) ; 
end; 

wrapup: 

call ipc_$delete_ev_chn (channel^id, code); 
return; — — 

trouble: proc; 

call comber r_ (code, "DEMp^CUTOFF" , "Error not expected."); 
goto wrapup; 
end trouble; 

end DEMO_CUTOFF; 
!DEMO_CUTOFF 

First wakeup successfully performed with msg = 1 
Channel successfully cutoff. 

2nd wakeup performed while channel was cutoff. 

First reading channel after reconnect. The event has occurred. 

The message is 1 . 

Second reading channel after reconnect. The event has occurred. 
The message is 2. 
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MASKING OR ASSIGNING PRIORITY TO EVENT CHANNELS 



SINCE THERE IS ACTUALLY SOME DELAY BETWEEN THE TIME A WAKEUP IS 
RECEIVED AND THE TIME THE PROCESS IS NOTIFIED, IT IS POSSIBLE FOR 
SEVERAL .WAKEUPS TO BE PRESENT BY THE TIME A PROCESS IS AWAKENED 



a IT IS POSSIBLE TO SPECIFY RELATIVE PRIORITIES AMONG EVENT -CALL 
CHANNELS 



B POSSIBLE TO SPECIFY THAT EVENT-CALL CHANNELS HAVE PRIORITY OVER 
EVENT-WAIT CHANNELS AND VICE VERSA 



Q BY DEFAULT, EVENT-CALL CHANNELS HAVE PRIORITY OVER EVENT-WAIT 
CHANNELS 



• MANIPULATING PRIORITIES 



0 ipc^$set_wait^prior 

Q CAUSES EVENT-WAIT CHANNELS TO BE GIVEN PRIORITY OVER EVENT-CALL 
CHANNELS (THIS IS NOT THE DEFAULT) 

D ONLY EVENT CHANNELS IN CURRENT RING ARE AFFECTED 
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IPC SUBROUTINES 
MASKING OR ASSIGNING PRIORITY TO EVENT CHANNELS 



ipc_$set_call_prior 

B CAUSES EVENT-CALL CHANNELS TO BE GIVEN PRIORITY OVER EVENT-WAIT 
CHANNELS (THIS IS THE DEFAULT) 

n ONLY EVENT CHANNELS IN CURRENT RING ARE AFFECTED 



B ipc_$mask_ev_calls 

B CAUSES THE ipc $block ENTRY POINT TO COMPLETELY IGNORE ALL 
EVENT-CALL CHANliELS IN THE CALLER'S RING (I.E., TO MASK THEM) 
SO THAT ANY WAKEUPS SENT ACROSS EVENT-CALL CHANNELS ARE INSTEAD 
QUEUED UP 

B CAUSES A "MASK COUNTER" TO BE INCREMENTED; MASKING IS IN EFFECT 
SO LONG AS COUNTER i 0 



6 ipc_$unmask^ev_calls 

fi DECREMENTS THE "MASK COUNTER"; EVENT-CALLS ARE UNMASKED 
(NOTICED) WHEN COUNTER s 0 

B SEVERAL EXTERNAL PROCEDURES MAY NEED TO MASK AND UNMASK. AN 
INCREMENTAL COUNTER PERMITS INDISCRIMINATE CALLS WITHOUT FEAR 
OF PREMATURE UNMASKING 
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AN EXAMPLE USING EVENT-WAIT CHANNELS 



Iprint abs_print_punch.pl1 1 
abs_print_punch: proc; 

del ME char (15) inlt ("abs_print_punch") static options (constant); 
del hcs $initiate entry (char (*)7 char (*), char (*), 

fixed bin (1), fixed bin (2), ptr, fixed bin (35)), 

get_proeess_id_ entry returns (bit (36)), 

ipe_$create~ev~ehn entry (fixed bin (71), fixed bin (35)), 

ipc^block entry (ptr, ptr, fixed bin (35)), 
(ioa_, com_err__) entry options (variable), 

expand pathname^ entry (char (*), char (*), char (*), 

fixed bin (35)), 

dprint_ entry (char (*), char (*), ptr, fixed bin (35)); 

del code fixed bin (35); 

del 1 ipe^info based (seg ptr) , 

2 target process id bTt (36) unal, 

2 target^chnl^id-fixed bin (71); 

^include dprint_arg; /* USED BY dprint_ SUBROUTINE »/ 

del 1 wait list based (wait__li.st_ptr) , 
2 nehan fixed bin, 

2 channel_id (0 refer (nchan)) fixed bin (71); 

del 1 event info, 

2 channel id fixed bin (71), 
2 message^fixed bin (71), 
2 sender bit (36), 
2 origin, 

3 dev signal bit (18) unal, 

3 ring bit (18) unal, 
2 channel^^index fixed bin; 

del (seg^ptr, wait^list^ptr) ptr; 

del dprint_paths$ char (168) external static; 
del dir char (168), entry char (32); 

/» SUPPLY ipc PROTOCOL INFORMATION »/ 

calT hcs_$initiate (">udd>F15dw>Auerbach" , "ipc^segl " , 

0, 1, seg_ptr, code); 
if seg^ptr = null () then call ERROR; 
call ipc_$ereate ev ehn ( 

seg ptr -> Tpc~info.target chnl_id, code); 
if code 0 then call ERROR; " 

seg_ptr -> ipc_info.target_process_id s get_process_id_ (); 

/* NOW GO BLOCKED WAITING FOR FURTHER INSTRUCTIONS */ 
allocate wait_list; 
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wait_list_ptr -> wait^list .nchan = 1; 
wait_list__ptr -> wait^list .channel^id (1) = 
seg^ptr -> ipc_info,target_chnl_id; 

call Ipc $block (wait list ptr, addr (event info), code); 
if code 0 then call ERRI5R; " 



• J** f 



/» AN EVENT HAS OCCURRED - EXAMINE »/ 

call ioa_ ("CHANNEL ID *i*/MESSAGE '*i*/SENDER 

event_info.channel_id , 

event~inf o .message , 

event info. sender) ; 
call ioa_ T"DEV SIGNAL ".3b"/RING " .Sb** /CHANNEL INDEX "i", 

event^info .origin .dev^signal , 

event^info. origin. ring, 

event^info.channel^index) ; 

if even t_info .message s 0 then goto CANCEL; 
if event^info .message = 1 then goto PRINT; 
if event^info .message s 2 then goto PUNCH; 
/* INVALID MESSAGE"*/ 

call com_err (0, ME, "INVALID REQUEST CODE "i", 

event^info .message) ; 
return; 

CANCEL: 

/» NO PRINTING OR PUNCHING AT ALL •/ 

call ioa_ ("PRINT/PUNCH REQUEST CANCELLED" > ; 
return; 



/» PRINT REQUEST »/ 

dprint_arg.pt_pch s 1; 
dprint"arg.output_module a 1; 
dprint^arg. class s "printer"; 
goto DPRINT; 

PUNCH! 

/* PUNCH REQUEST */ 

dprint_arg.pt pch = 2; 
dprint^arg .ou"Eput_module = 3; 
dprint~arg. class s "punch"; 
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AN EXAMPLE USING EVENT-WAIT CHANNELS 



DPRINT: 

call expand_pathname (dprint_paths$, dir, entry, code); 
if code '^s 0 then call ERROR; 
dprint^arg. version s 4; 
dprint__arg. copies s i; 
dprint^argedelete s 0; 
dprint^arg. queue s 3; 
dprint^arg. notify = 1; 
dprint^arg. heading s «"; 
dprint^arg.dest s ""; 
dprint^arg.nep s "0"b; 
dprint^arg. single = »0"b; 
dprint^arg.non edited = "0"b; 
dprint^arg, truncate s »»0"b; 
dprint3arg,center_top_label s "0«b; 
dprint_arg,center~bottoin__label s "0"b; 
dprint^arg.lmargin s 10; 
dprint]|^arg. lineal th s -1; 
dprint"arg. page 1th s -1; 
dprint_arg.top_Tabel s ""; 
" dprint_arg.bottom_label = ""; 

call dprint (rtrim (dir), rtrim (entry), 

addr (cTprint arg) , code) ; 
if code *s 0 then""call ERROR; 

/» REPORT ACTION AND QUIT */ 

call ioa_ (""a>*a "CDPRINT";DPUNCH"] REQUEST SUBMITTED.", 

dirT entry, dprint arg.pt pch) ; 
call ioa_ ("END' "a", MET; 

ERROR: proc; 

call com err (code, ME); 
goto FINiS; 

end; 

FINIS: 

end abs^print^punch; 
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r 11S12 0.122 15 

! print driver^ipc.pll 1 

driver^ipc: proc; 

del ME char (10) init ("driver ipc") static options (constant)j 
del hcs $initiate entrv (char T*) » char (»), char (»), 

fixed bin (1), fixed bin (2), ptr, fixed bin (35)); 
del code fixed bin (35); 
del seg_ptr ptr; 
del 1 ipe_info based (seg ptr), 

2 his proeess_id bit T36), 

2 his^chnl id fixed bin (71); 
del hcs fwakeup entry (bit (36), fixed bin (71), fixed bin (71) » 

fixed bin (35)); 
del dprint_paths$ char (168) external static; 
del message fixed bin (71); 
del (ioa , com err ) entry options (variable); 



/» PICK UP ABSENTEE'S PROCESS AND CHANNEL IDS »/ 

call hes_$initiate ( ">udd>F15dw>Auerbach" , "ipc^segl", 

0', 1 , seg ptr , code) ; 
if seg_ptr = null () then call ERROR; 

/* TELL ABSENTEE TO PRINT AND GIVE IT A PATH TO PRINT »/ 
- dprint_paths$ = «>udd>F15dw>Auerbach>abs_print_punch.pl1"; 

message si; " 

/* FIRE OFF WAKEUP SIGNAL */ 

call hcs_$wakeup (ipe info.his^process^id, 
ipe_info,his^chnT__id, "° 
message, 
code) ; 

if code ''s 0 then call ERROR; 

call ioa_ ("*[DPRINT" ;DPUNCH"] REQUEST FOR "a", 

message, dprint paths$); 
call ioa_ (''END "a", "ME); 

ERROR: proc; 

call com err (code, ME); 
goto FINTS; " 

end; 

FINIS; 

end driver ipe; 



r 11s12 0,020 2 
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! print ipc^example.absin 1 

ab s_^pr i n t^pun c h 

logout 

&quit , 



r 11:12 0,020 1 

I ear ipc example 

27 already requested. 

r 10:55 0.113 6 

!driver_ipc 

DPRINT REQUEST FOR >udd>F15dw>Auerbach>abs_print_punch.pl1 
END driver ipc 
r 11:13 O.TJea 4 

lldr -long 



Queue 3: 1 request. 12 total requests. 

Pathname: >udd>F15dw>Auerbach>abs__print__punch.pl1 

Type: print 

Copies: 1 

Time: 03/13/80 10:56 mst Thur 

Delete: no 

Notify: yes 

Options: -indent %0 



r 11:13 0.138 10 
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! print ipc_exaraple.absout 1 

Absentee user Auerbach F15dw logged in: 03/13/80 11:14 mst Thur 
r 11:14 1.827 34 

abs print punch 

CHANNEL ID 9843986496T772869469 

MESSAGE 1 

SENDER 004670305344 . : - 

DEV SIGNAL 000000 
RING 000004 
CHANNEL INDEX 1 

>udd>F15dw>Auerbach>abs_print_punch.pI1 DPRINT REQUEST SUBMITTED. 
END abs_print_punch ^ 
r 11:15 2.314 27 

logout 

Absentee user Auerbach F15dw logged out 03/13/80 11:16 mst Thur 
CPU usage 2 sec, memory usage 1.0 units 

r 11:17 0.084 14 

From lO.SysDaemon (printer): 

printed >udd>F15dw>Auerbach>abs print punch. pll 
$0.06 queue 3 prtd 10115 • - - 
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fprint listen. pll 1 
listen: proc; 

del ipc_$create_ev chn entry (fixed (71), fixed (35)), 
get process id~ entry returns (bit (36)), 

hcs_$wakeup entry (bit (36), fixed bin (71), fixed (71), fixed (35)) 
iox $control entry (ptr, char (*), ptr, fixed (35^), 
code fixed (35), 

ipc $decl ev call chn entry (fixed (71), entry, ptr, fixed, 

" ~ fixed (35)), 

hcs $initiate count entry (char (*), char (*), char (*), fixed (24), 
fixed (2), ptr, fixed (35)), 
be fixed (24), 
iox_$user output ext ptr, 

iox_$put_Jchars entry (ptr, ptr, fixed (21), fixed (35)), 
(ioa", coin_err_) entry options (variable); 
del 1 ipc^info based (seg^ptr), 
2 process_id bit (36)7 

2 ehannel^id fixed bin (71); : 
del seg_ptr ptr; . ~ 

del ME char (6) init ("listen") static options (constant); 
del event info ptr ptr; 
del 1 evenT^info based Cevent_info_ptr) , 

2 channel_id fixed bin (71),* 

2 message^f ixed bin (71), 

2 sender bit (36), 

2 origin, 

^ dev signal bit (18) unal, 
3 ring bit (18) unal, 

2 data^ptr ptr; 

/» INITIATE PROTOCOL PASSING SEGMENT */ 

call hcs $initiate_count (">udd>F15dw>Auerbach" , "ipc segl", 

"",~be, 1, seg ptr, code); 
if seg^ptr s null (T then call ERROR; 

/» CREATE EVENT CHANNEL AND MAKE IT A CALL CHANNEL «/ 

call ipc $ereate ev^ehn (ipc^info. channel id, code); 

if code *s 0 then call ERROR; " 

ipc info. process^id = get_process_id_ (); 

calT ipc_$^®cl_ev_call chn (ipc_info.channel_id, 

print_^msg7 null (T, 0, code); /* data^ptr s null V 
if code '*s""0 then call ERROR; " 

/» ALL DONE */ 

call ioa_ ("Now listening for messages."); 
return; 
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print msg: entry (event info ptr) ; 

/* THIS HANDLER FOR TAKING MlSSAGES DOES NOT USE THE 
event_info_ptr PARAMETER PASSED TO IT, »/ 

/» GET POINTER TO MAILBOX SEGMENT »/ 

call hcs_$initiate_count (">udd>F15dw>Auerbach" , "mailbox", 

'•",""bc, 1, seg ptr, code); 
if seg_ptr s null (T then call ERROR; 

/» PRINT OUT CONTENTS OF >udd>F15dw>Auerbach>mailbox »/ 
call ioa_ ("Message is:")| 

call iox~$put_chars ( iox_$user_output, seg^ptr, 

divide (be, 9, 21, 0), cole); °" 
if code 0 then call ERROR; 

/» RESTART ANY INTERRUPTED OUTPUT AND RETURN »/ 

call iox_$control ( iox_$user_output, "start", null (), 
code) ; 

ERROR; proc; 

call com_err_ (code, ME); 

call iox_$control (iox_^$user^output, "start", null (), 

code) ; — — 

goto FINIS; 

end; 

FINIS; 

end listen; 



r 12:36 0.383 18 

! print put^message.pll 1 

put^message: proc; 

^include listen decls; 

del mailbox fiXe; 

del 1 ipc info based (seg ptr), 

2 process^id bit (36)7 

2 channel_id fixed bin (71); 
del seg^ptr ptr; 

/» THE FOLLOWING PL/1 I/O STATEMENTS BUILD UP A SEGMENT 
WHICH WILL BE DUMPED LATER BY THE print^msg EVENT HANDLER. »/ 

open file (sailbox) stream output; 
put file (mailbox) skip 

list ("Hello. . .this is the absentee process* •"); 
put file (mailbox) skip 

list ("Just wanted to prove it works!!"); 
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put file (mailbox) skip; 
close file (mailbox); 

/» OBTAIN process id AND channel_id SO THAT WE CAN SEND WAKEUP »/ 

call hcs_$initiate_count (••>udd>F15dw>Auerbach" , "ipc^segt", 

««« be, 1, seg ptr, code); " 
if seg^ptr s null (7 then call ERROR; 

/» NOW SEND THE WAKEUP »/ ' 

call hcs_$wakeup (ipc_^info,process_id, ipc^info.channel^id, 
0, .code);. . . 

. if code '^s P then call ERROR; 

ERROR: proc; 

del ME char (It) init ("put^message") static options (constant); 
call com err ""(code, ME); 
goto FINISH;" 

end; 

FINISH: 

end put_message; 



r 12:36 0.020 1 

! print pm.absin 1 

put message 

logout 

&quit 



r 12:3& 0.029 1 

! defer messages 
r 12:3^ 0.018 5 

! listen 

Now listening for messages, 
r 12:36 0.015 3 

tear pm 

27 already requested, 
r 12:36 0.126 12 
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! who 

Multics MR8.0, load 55. 0/130. 0| 55 users 
Absentee users 0/3 

ICSysDaemon 
Backup . Sy sDaemon 
10. SysDaeiuon 
lO.SysDaemon 
ICSysDaemon 
GCOS.SysDaemon 
Volume_Dumper • Daemon 
Opr .Operator 
MFreeman.SSF 
Susan .NCB 
Jagernauth .Multics 
Irish. Doc 
Downing .Multics 
Wardd .Multics 
Falksenj .Multics 
Coppola.HFED 
Casselman.HCHC 
Martinson . SysMaint 
Nolde. Bus-Plan 
FED. VIS 
Lombreglia.NCB 
Lutz.GSASched 
Retriever .SysDaemon 
Harrison. Rapidata 
Stryk.HCRC 
Matheson. DEBUG 
Landrum.SED 
Baryza.FORD_CONy 
Auerbach.F15dw 
Johnson . SysAdmin 
Donner .Multics 
Fawcett.VIS 
Message is: 

Hello... this is the absentee proeess«. 

Just wanted to prove it works!! 

Coflin.G66 

Friedman .F15aw 

Glicksman.HISCAN 

Berglund .Multics 

Arnwine.SiteSA 

NThompson.NOPS 

Chouinard . BBbench 

JWilliams.SED 

Student_20.F01 

RBarnes .Multics 
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Bergum.HCRC 

Gildersleeve.Multics 

Tilton.MMPP 

Watts .Doc 

FED. VIS 

Sam.SRB 

Student 14.F01 

Gowans.BSask 

PH Jones • BBbench 

Troost.MMPP 

Whitford.Doc 

Gintell.Multics 

Grimes .SMP 
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YOU ARE NOW READY FOR WORKSHOP 
#4 
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INTRODUCTION 



# CONCEPT 



B ANOTHER FORH OF INTERPROCESS COMMUNICATION INVOLVES THE SHARING 
OF COMMON DATA BASE (NOT TO BE CONFUSED WITH MDBM) SEGMENTS 



B BECAUSE SEVERAL PROCESSES MAY BE ATTEMPTING TO CONCURRENTLY ACCESS 
AND UPDATE A SHARED DATA BASE, SOME FORM OF CONTROL IS REQUIRED: 

f TO PREVENT THE DATA BASE FROM BEING LEFT IN AN INCONSISTENT 
STATE: ■ . . ■ •■ 

B TO PREVENT ANY PROCESS FROM OPERATING UPON PARTIALLY-UPDATED 
DATA 



• A POSSIBLE SOLUTION 



B A ^LOCKING" FACILITY: THE set lock SUBROUTINE 



B COOPERATING PROCESSES OBSERVE A LOCKING PROTOCOL, IN WHICH A 
GIVEN PROCESS DOES NOT ACCESS A DATA BASE UNTIL IT CAN SET A 
LOCK WORD, AND IN WHICH A PROCESS RESETS THAT LOCK WORD WHEN IT 
HAS COMPLETED A CRITICAL UPDATE OR RETRIEVAL 
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• DATA BASE LOCKING IS IMPLEMENTED BY set lock SUBROUTINE (AG93) 
(BUT SEE ALSO THE PL/1 NON-STANDARD BUILTINS stac AND stacq) 



• set_lock_ PROTOCOL 

Q A CALLER-SUPPLIED LOCK WORD IS USED FOR THE MUTUAL EXCLUSION OF 
PROCESSES ' 

0 THIS LOCK WORD IS 

0 DECLARED (bit(36) aligned) BY UPDATING PROGRAM (S) 

Q ZEROED ONCE BY SOME SPECIAL INITIALIZATION PROGRAM WHEN DATABASE 
FIRST CREATED (THUS INDICATING IT'S UNLOCKED) 

0 LOCATED 

Q USUALLY IN A SPECIAL, SEPARATE SEGMENT ACCESSIBLE TO ALL 
COOPERATING PROCESSES 

Q SOMETIMES IN THE DATABASE ITSELF 
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THE LOCKING MECHANISM 



B WHEN A PROCEDURE IS ABOUT TO ENTER A CRITICAL SECTION OF CODE, 
IT CALLS AN ENTRY POINT IN set lock_ WHICH ATTEMPTS TO SET THE 
LOCK BY PLACING THAT PROCESS'S lOCK IDENTIFIER IN THE LOCK WORD 
USING AN INDIVISIBLE MACHINE INSTRUCTION, stac (STORE-A 
CONDITIONAL) 



B stac USES A SPECIAL MAIN MEMORY REFERENCE THAT PROHIBITS SUCH 
REFERENCES BY OTHER PROCESSES BETWEEN THE TEST AND THE DATA 
TRANSFER. 



B IF THE LOCK WORD ALREADY CONTAINS SOME OTHER VALID LOCK 
IDENTIFIER, THE INTERPRETATION IS THAT THE DATA BASE IS LOCKED 
BY THAT OTHER PROCESS, AND THE CALLING PROCESS WAITS FOR THE 
LOCK TO BE UNLOCKED BY THAT OTHER PROCESS 



fl WHEN A CRITICAL SECTION OF CODE HAS BEEN COMPLETED BY THE PROGRAM, 
THE LOCK OUGHT TO BE UNLOCKED, ALLOWING ANOTHER PROCESS TO SET 
THE LOCK 



• SUCCESS HINGES ON THE FOLLOWING CONVENTIONS: 



B set lock IS THE ONLY PROCEDURE THAT MAY MODIFY THE LOCK WORD 
(WITH THI EXCEPTION OF THE PROGRAM WHICH INITIALIZES THE DATA 
BASE AND LOCK WORD) 



B ALL PROCESSES SHOULD CALL set lock $lock BEFOR£ ENTERING A CRITICAL 
SECTION OF CODE 



6 ALL PROCESSES SHOULD CALL set lock $unlock AFTER COMPLETING A 
CRITICAL SECTION OF CODE 
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THE SET LOCK SUBROUTINE 



• set lock $lock (AG93) 



B ATTEMPTS TO PLACE LOCK IDENTIFIER OF CALLING PROCESS IN THE GIVEN 
LOCK WORD 



B call set_lock_$lock (lock^word, wait^time, code); 



B wait time INDICATES THE NUMBER OF SECONDS THAT set lock $lock 
SHOUlD WAIT FOR A VALIDLY LOCKED^TUCTlJORD TO gfe UNlOCKED 
BEFORE RETURNING UNSUCCESSFULLY (-1 INDICATES NO TIME LIMIT) 



B ONE OF THE FOLLOWING CODES IS RETURNED: 



B 



0 



B 



error table $invalid lock reset 



B 



error_table_$locked_by_this_process 



B 



error table $lock wait time exceeded 
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THE SET LOCK SUBROUTINE 

• set_lock_$uiilock (AG93) 

a ATTEMPTS TO RESET A GIVEN LOCK WORD TO "O^b 
0 call set_lock_$unlock ( lock^word , code) ; 
J RETURNS ONE OF THE FOLLOWING CODES: 

■ • . B 0 ;. 

B error^table_$lock^not_locked 

Q error table Slocked by other process IF lock word CONTAINED 
NON-ZlRO VJCLUE N0T'"EQTJAL TCT LOCK IDENTIFIER^'OF THE CALLING 
PROCESS 
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! pwd 

>user_dir_dir>FT5dw>Auerbach 
r 92:9 0.173 t 

! Is -pn >udd>F1 5dw> Auerbach>AJAX_db 

Segments s 2, Lengths =2. 

r w 0 lock word 
re 2 bookTseat 

Multisegment-files s 1, Lengths s 7, 

r w 7 fllght^records 

r 09:29 0.064 0 

Iprint book^seat.pll t 



book^seat: procedure; 

7» THIS PROGRAM UPDATES AN AIRLINES DATABASE 
WHICH ISJLOCATED IN THE SAME DIRECTORY 
~ AS tMs PROGRAH, AND WHICH ALSO CONTAINS 
A LOCK SEGMENT »/ 

del flight records file; 
del 1 flighT^rec based (rec^ptr), 
2 total^seats fixed bin7 
2 seats booked fixed bin, 
2 seat_Jinfo CO refer (seats_booked) ) , 
3 name char (20) varying," 
3 address char (30) varying; 
del flight no char (4) varying, 

date cHar (6) varying; 
del rec_ptr ptr; 

del set_lock_$loek entry (bit (36) aligned, 
fixed bin, fixed bin (35)), 
set lock iunlock entry (bit (36) aligned, 
fixed bin (35)), 
(ioa__, com err_) entry options (variable), 
change_wdTr_ entry (char (168) aligned, fixed bin (350); 

del lock_wor(^ bit (36) aligned external static; 
del (key, cleanup) condition; 

del (code, 

error table $invalid lock reset external, 
error3table"$locked_"By_thTs_process external, - - 

err6r"table^$lock^Wait_time"exeeeded external) fixed^ bin (-35); 

del ME char (9) init ("book^seat") static options (constant); 
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/« ESTABLISH 'on unit* FOR 'cleanup' 

DO NOT UNLOCK LOCK - DATA BASE MAY BE 
IN AN INCONSISTENT STATE »/ 

on cleanup close file (flight_records) ; 

/» ESTABLISH «on unit' FOR 'key' CONDITION 
REPORT ERROR AND ASK AGAIN »/ 

on key ( flight^records) begin; 

call ioa "("Invalid key entered "a", onkey ()); 
goto PROMPT ; 

end; 



/» BEGIN UPDATE PROGRAM »/ 

call ioa_ ("AJAX Airlines flight booking program begins"); 

/» CHANGE WORKING DIR TO AIRLINES DATABASE DIRECTORY »/ 

call change wdir_ (">udd>F15dw>Auerbach>AJAX_db" , code); 
if code 15 then do; 

call coiB^err^ (code, ME); 

return; 

end; 

/» OPEN DATABASE »/ 

open file ( flight^records) direct update; 

/» LOCK DATABASE NOW - TRY FOR 30 SECONDS */ 

.call set_lock_$lock (lock_word$, 30, code); 

if code 0 then 
/» COULDN'T LOCK IT - FIND OUT WHY */ 

if code = error_table_$lock^wait_tiine_exceeded 
then do; — — — 

IS BUSY */ 

call ioa ("Database busy » try again later."); 
goto WRATUP; • 

end; 
else 

if code = error_table_$invalid_lock_reset 
then do; " — — 

DIDN'T UNLOCK BEFORE DYING »/ 

call ioa_ ("Database has invalid lock"); 
call ioa^ ("Notify DBA - no update allowed"); 
goto WRAPUP; 

end; 
else 

if code s error table $locked by this process then do; 



/* DATABASE 



/♦ SOMEBODY 
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/» SOMETHING IS VERY WRONG - DIE »/ 

call ioa ("FATAL ERROR!!"); 

call ioa ("NOTIFY DBA IMMEDIATELY!!"); 

goto WRA^UP; 

end; 
else; 

else; 

/* DATABASE IS NOW LOCKED »/ 

PROMPT: 

/» BASIC REQUEST LOOP */ 

do while ("1"b); 

call ioa_ ("Enter flight^no, date for booking"); 
get list'°( flight no, date) ; 
if flight no s "TJ" then goto WRAPUP; 
/« STOP WHEN flight no l3 "0" »/ 
/» TRY TO READ RECORD «/ 

read file (flight records) key (flight_noi Idate) 
set (rec_ptr7; 

/* SEE IF ANY SEATS ARE LEFT */ 

if rec^ptr -> seats^^booked >= rec^ptr -> total^seats 
then do; — — 

call ioa_ ("Flight is booked full,"); 
end; " 

/* OKAY - GET REST OF INFO »/ 
else do; 

seats booked s seats^booked 1 ; 

call Toa_ ("Enter name, address of oust"); 

get list ( 

flight_rec,seat_info (seats^^booked) .name, 
flight"rec,seat~info (seats^booked) .address) ; 
rewrite file (flight records) 

from (rec_ptr -T flight_^rec) ; 
end; — — 

end I 

WRAPUP: 

/» UNLOCK AND CLOSE DATABASE »/ 

call set lock $unlock (lock_word$, code); 

close fiXe ( flight^records) ; 

call iOa_ ("End Update Program *a", ME); 

. end book seat; 
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r 09:29 0.025 2 
! AJAX_db>book_seat 

AJAX Air lines^f light booking program begins 
Enter flight no, date for booking 
! 112,800303 

Flight is booked full. 

Enter flight no, date for booking 

!0,0 

End update Program book seat 
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INTRODUCTION 



• CERTAIN SOPHISTICATED PROGRAMS MAY REQUIRE THE USE OF ONE OR MORE 
CPU AND/OR REAL-TIME TIMERS 



• TIMER MANAGER FACILITY (TMF) OPERATES PRIMARILY IN CONJUNCTION WITH 
THE INTERPROCESS COMMUNICATION FACILITY, THUS ENABLING -PROGRAMS TO 
RUN ASYNCHRONOUSLY WITHIN A PROCESS 



• °fi@i:t4AS ALLOWS A PROCESS TO: 



Q BLOCK ITSELF FOR A SPECIFIED REAL TIME PERIQD (SLEEP) 



Q CALL A SPECIFIED PROCEDURE WHEN A SPECIFIED TIME INTERVAL HAS 
ELAPSED 



D ISSUE A WAKEUP ON A SPECIFIED EVENT-WAIT CHANNEL WHEN A SPECIFIED 
TIME INTERVAL HAS ELAPSED 



• THE SUBROUTINE INTERFACE IS timer_manager_ (AK9j) 



FOR MORE ABOUT TIME, SEE THE MPM SUBROUTINES MANUAL: 

clock_ cpu_time_and_^paging_ date_time_ 
_decode clock value" virtual cpu time 
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TIMER MANAGEMENT TERMINOLOGY 



• timer manager MAKES USE OF SEVERAL CRITICAL CONCEPTS: 



Q alarm 



B "alarm" IS USED TO DESIGNATE A REAL-TIME TIMER; THAT IS, A 
"WALL-TIME" ELAPSED TIME - WHEN AN "alarm" TIMER GOES OFF, 
THE "alrm" (STATIC) CONDITION IS SIGNALLED 



Q cpu 



B "cpu" IS USED TO DESIGNATE A VIRTUAL CPU TIMER; WHEN A "cpu" 
TIMER GOES OFF, THE "cput" (STATIC) CONDITION IS SIGNALLED 



0 relative time 



II A TIME MEASURED FROM THE CALL TO timer manager ; THAT IS, A 
TIME MEASURED FROM THE TIME THE TIMER I§* CREATES" 



S absolute time 



B A TIME MEASURED FROM THE FIXED POINT IN TIME "January t, 1901 
0000 Hours" 
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TIMER MANAGER GENERIC ARGUMENTS 



timer mdnager ENTRY POINTS ACCEPT A COMMON SET OF GENERIC ARGUMENTS 



D channel 

Q THE EVENT CHANNEL ID (fixed bin(71)) OVER WHICH A WAKEUP IS 
TO BE TRANSMITTED 

B SET UP PRIOR TO INVOCATION OF A timer_manager_ ENTRY POINT 



fl routine 

Q THE PROCEDURE TO BE INVOKED WHEN A "CALL" TIMER GOES OFF 
(SPECIFIED WHEN THE TIMER IS CREATED) 

g THE PROCEDURE WILL BE PASSED TWO ARGUMENTS (UNLIKE AN EVENT-CALL 
PROCEDURE) AS FOLLOWS: 

Q mc^ptr 

0 AN ALIGNED POINTER TO THE "MACHINE CONDITIONS" AT THE 
TIME THE alrm OR cput CONDITION WAS SIGNALLED (SEE SECTION 
7 IN MPM REFERENCE GUIDE) 

Q name 

Q A CHARACTER STRING INDICATING WHETHER THE TIMER WAS AN 
ALARM TIMER (alrm) OR A CPU TIMER (cput) 

Q IS MOST OFTEN AN EXTERNAL ENTRY, BUT MIGHT BE INTERNAL (TAKE 
CARE!) 
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Q time 

D MANY timer manager ENTRY POINTS REQUIRE THAT THE TIME (fixed 
bin (71)) "BE SPECIFIED; alrm OR cput CONDITION IS SIGNALLED 
AT THAT TIME 

8 flags 

Q MANY timer manager ENTRY POINTS REQUIRE THIS bit(2) STRING, 
WHICH SPECIFIES HOW THE time ARGUMENT IS TO BE INTERPRETED 

Q "11"b MEANS RELATIVE SECONDS 

Q "10"b MEANS RELATIVE MICROSECONDS (1e-6 SECONDS) 

0 "01 »b MEANS ABSOLUTE SECONDS 

Q "00"b MEANS ABSOLUTE MICROSECONDS (1e-6 SECONDS) 
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TIMER MANAGER ENTRY POINTS 



• timer_manager_ ENTRY POINTS ALLOW A PROCESS TO: 

D BLOCK A PROCESS FOR A SPECIFIED REAL TIME INTERVAL 
1 timer_manager_$ sleep 

B CAUSE A SPECIFIED PROCEDURE TO BE INVOKED AT A SPECIFIED TIME 
B timer_iDanager_$alarm_call 
B timer_manager_$cpu_call 

B CAUSE A WAKEUP TO BE ISSUED ON A SPECIFIED EVENT-WAIT CHANNEL AT 
A SPECIFIED TIME 

B timer_manager_$alarm_wakeup 

B timer manager $cpu wakeup 
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TIMER MANAGER ENTRY POINTS 



D RESET AND INHIBIT TIMERS 

11 timer_manager_^$alanp_^call_^inhibit 

11 timer__manager_^$re5et_alarm_eall 

.B timer_manager_^$reset^alarm_^wakeup 

11 timer_manager__$cpu_call_inhibit 

fl timer__manager_$reset^cpu__call 

Q tinier^manager^$reset^cpu^wakeup 
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TIMER MANAGER ENTRY POINTS 



BLOCKING A PROCESS 



• tinier manager $sleep CAUSES PROCESS TO GO BLOCKED FOR A PERIOD OF 
REAL TIME 



B OTHER TIMERS THAT ARE ACTIVE ARE PROCESSED WHENEVER THEY GO OFF 



Q HOWEVER, THE PROCEDURE ISSUING THIS CALL WILL NOT RESUME (IcE,, 
EXECUTE ITS NEXT INSTRUCTION) UNTIL THE REAL TIME HAS BEEN PASSED 



S EXAMPLE 



SECONDS 

I 
I 

call timer_manager_$sleep ( 30, "11"b); 

T 

I 

RELATIVE 



fl WOULD CAUSE THIS PROCESS TO GO TO "SLEEP" FOR THIRTY SECONDS 
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TIMER MANAGER ENTRY POINTS 
USING CALL TIMERS 

• ENTRY POINTS WHICH CAUSE A SPECIFIED PROCEDURE TO BE INVOKED WHEN A 
TIMER GOES OFF 

Q timer_inanager_$alarm_call 
Q SETS UP A REAL-TIMER 

Q A SPECIFIED ROUTINE IS CALLED WHEN THE TIMER GOES OFF 

Q IT REQUIRES THE time, flags, AND routine ARGUMENTS AS INPUT 

S EXAMPLE 

call tiiner__manager_$alarm_call ( 80, "H^b, print^usage)^. 

8 WOULD CAUSE A PROCEDURE CALLED print usage TO BE INVOKED 
AFTER 80 SECONDS OF REAL TIME HAD ELAPBED 
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TIMER MANAGER ENTRY POINTS 



USING CALL TIMERS 



D tiiner_^manager^$cpu^cail 

0 SETS UP A CPU TIMER WHICH WILL CAUSE A SPECIFIED PROCEDURE TO 
BE INVOKED WHEN A SPECIFIED INTERVAL OF CPU TIME HAS ELAPSED 

0 REQUIRES THE SAME ARGUMENTS AS THE timer manager $alarm call 
ENTRY POINT - - - 

B EXAMPLE 

MICROSECONDS 

I 
I 

t 

call timer manager $cpu call ( 1000, "10"b, print cpu usage); 

( 

RELATIVE i 



Q CAUSES THE PROGRAM print cpu usage TO BE INVOKED WHEN ONE 
MILLISECOND OF CPU TIME fl]lS ELAPSED 
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TIMER MANAGER ENTRY POINTS 



USING WAKEUP TIMERS 



• ENTRY POINTS BELOW ALLOW THE CALLER TO SPECIFY THAT A WAKEUP IS TO 
BE SENT ACROSS SPECIFIED EVENT-WAIT CHANNELS WHEN THE TIMER GOES 
OFF 



Q timer_manager_$alarm_wakeup 

D SETS UP A REAL-TIME TIMER THAT ISSUES A WAKEUP ON THE EVENT-WAIT 
CHANNEL SPECIFIED WHEN THE TIMER GOES OFF 

0 CALLER MAY WISH TO GO BLOCKED ON THE CHANNEL (BUT NEEDN'T) 

D THE EVENT MESSAGE PASSED IS THE STRING "alarm " 

Q REQUIRES THREE INPUT ARGUMENTS - THE time, flags, AND channel_id 

Q EXAMPLE 

call convert_date_to_blnary_ ("1 hour 5 minutes", time, code); 

-call timer manager $alarm Wikeup ( time, "00"b, channel id); 

— • — — ■ — 

, ■ ■ I " 

a 

ABSOLUTE 

MICROSECONDS 



D WOULD CAUSE A WAKEUP TO BE ISSUED ACROSS channel id 65 
WALL CLOCK MINUTES FROM THE TIME convert date to binary 
WAS "CALLED - - - 
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TIMER MANAGER ENTRY POINTS 



USING WAKEUP TIMERS 



Q timer manager $cpu wakeup 



S OPERATES EXACTLY LIKE timer manager $alarm wakeup EXCEPT THAT 
THE TIMER IS A CPU TIMER ANT5 THE EVENT MESSAGE IS "cpu^time" 

0 EXAMPLE 



call timer^manager_$cpu_wakeup (50, "01"b, channel_id) ; 



I 



ABSOLUTE 



SECONDS 



. Q WOULD CAUSE A WAKEUP TO BE ISSUED ON THE EVENT-WAIT CHANNEL 
IDENTIFIED BY channel id AFTER A TOTAL OF 50 CPU SECONDS 
HAD BEEN EXPENDED (MEiTSURED FROM PROCESS CREATION TIME) 
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TIMER MANAGER ENTRY POINTS 



RESETTING AND INHIBITING TIMERS 



• timer manager ENTRY POINTS EXIST WHICH ALLOW A PROCESS TO RESET OR 
INHIBIT TIMER'S 



• USERS OF timer manager SHOULD BE AWARE OF THE PERILS OF ASYNCHRONOUS 

PROCESSING, AND PROGRAfTS CREATING CALL OR WAKEUP TIMERS SHOULD PROVIDE 
AN »on unit» FOR THE cleanup CONDITION TO RESET TIMERS 



B SUCH 'on units' GENERALLY DO NOTHING MORE THAN RESET THE TIMERS, 
THUS PREVENTING SUCH TIMERS FROM GOING OFF AT UNDESIRED TIMES 



S ENTRY POINTS WHICH RESET AND INHIBIT TIMERS: 



Q timer_manager_$reset_alarm_call 

H RESETS, OR TURNS OFF ALL REAL-TIME TIMERS (alarm) THAT 
CALL THE ROUTINE SPECIFIED WHEN THEY GO OFF 

0 REQUIRES ONLY ONE ARGUMENT, THE NAME OF THE ROUTINE FOR 
WHICH TIMERS HAVE BEEN SET 

Q EXAMPLE 



call timer_manager_$reset_alanii_call (print^usage) ; 



3 THIS CALL WOULD TURN OFF ANY REAL-TIME TIMERS WHICH 
WOULD CALL print_usage IF THEY WENT OFF 



Not To Be Reproduced 



10-12 



F15D 



TIMER MANAGER ENTRY POINTS 



RESETTING AND INHIBITING TIMERS 



Q timer_manager^$reset^cpu_call 

0 OPERATES IN THE SAME MANNER AS 

timer manager $reset alarm call EXCEPT THAT IT TURNS OFF 
CPU TIMERS FOlf THE SPECIFIED PROCEDURE 



timer^manager^$reset^alarm_wakeup 

Q TURNS OFF ALL REAL-TIME TIMERS THAT ISSUE A WAKEUP ON THE 
EVENT-WAIT CHANNgL SPECIFIED 

D THE ONLY INPUT ARGUMENT IS THE channel id OF THE CHANNEL 
FOR WHICH TIMER WAKEUPS ARE TO BE TURNED" OFF 

i EXAMPLE 

call timer_manager_$reset_alarm_wakeup (channel^id) ; 



D THIS CALL WOULD TURN OFF ANY REAL-TIME TIMERS WHICH 
WOULD OTHERWISE ISSUE A WAKEUP ON THE CHANNEL IDENTIFIED 
BY channel_id WHEN THEY WENT OFF 

8 timer_manager_$reset_cpu_wakeup 

Q OPERATES EXACTLY LIKE timer manager $reset alarm wakeup 
EXCEPT THAT IT TURNS OFF CPU TIMERS'FOR TSE EVElfT-WAIT 
CHANNEL SPECIFIED 
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TIMER MANAGER ENTRY POINTS 



RESETTING AND INHIBITING TIMERS 



Q INHIBITING INTERRUPTS WHILE USING CALL TIMERS ALLOWS THE PROCESS 
TO ENSURE THAT THE HANDLER (THE PROCEDURE INVOKED) WILL NOT BE 
INTERRUPTED BEFORE IT RETURNS 



Q IF SUCH HANDLERS DO NOT RETURN, THE PROCESS MAY MALFUNCTION, 
SINCE IT IS DANGEROUS TO INHIBIT INTERRUPTS FOR. TOO LONG 



Q timer_manager^$alarm_call^inhibit 

0 OPERATES EXACTLY LIKE timer_inanager_$alarm_call EXCEPT THAT 
ALL INTERRUPTS ARE INHIBITED JUST BEFORE THE HANDLER IS 
INVOKED 

B WHEN THE HANDLER RETURNS, ALL INTERRUPTS ARE REENA6LED 



B tiiner_manager_$cpu_call_inhibit 

Q OPERATES LIKE timer manager_$cpu call EXCEPT THAT ALL 
INTERRUPTS ARE INHIBITED WHILE THE HANDLER IS EXECUTING 



Not To Be Reproduced 



10-14 



F15D 



TIMER MANAGER ENTRY POINTS 
STANDARD SYSTEM HANDLERS 

• OTHER ENTRY POINTS IN timer manager SERVE AS STATIC HANDLERS FOR 
TWO CONDITIONS: 

0 timer_manager_$cpu_time_interrupt (FOR 'cput» CONDITION) 
Q timer manager $alarm interrupt (FOR *alrm' CONDITION) 



• SEE THE CODE FOR user real init admin IN APPENDIX B 
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TWO EXAMPLES USING TIMERS 



iprint cookie. pl1 1 
cookie: proc; 

/* THE INFAMOUS COOKIE MONSTER PROGRAM 

THIS PROGRAM USES THE TIMER MANAGER FACILITY 
TO CAUSE THE COOKIE MONSTER PROGRAM TO BE 
REINVOKED AGAIN AND AGAIN, THUS BEWILDERING 
THE CALLER »/ 

•^dcl timer_manager_$alarm__call entryCfixed bin (71), bit (2), entry) j 
timer_manager_$reset_alarm_call entry (entry), 
iox_$control entry (ptr, char (*), ptr, fixed bin (35)), 
(ioa_, ioa_$nnl) entry options (variable); 

del (quit, cleanup) condition; 

del next time fixed bin (71); 

del null^builtin; 

del iox__$user_io ext ptr; 

del answer char (6); 

del sysin file; 

del code fixed bin (35); 

del i static init (1); 

del first time bit (1) static init ("1"b); 



/« ESTABLISH »on unit» FOR CLEANUP 

RESET ANY TIMERS THAT MAY BE AROUND »/ 

-^^^♦on cleanup call timer_manager_$reset_alarm_call (handler); 

/* COME HERE IF FIRST TIME EXECUTING COOKIE »/ 

if first time then do; 
/» FOR INITIAL CALl, SET TIME TO 10 SECONDS »/ 
next time s 1Q; 
firsl time s "0"b; 

end; 

/» WHEN COOKIE IS CALLED AGAIN, 
SET THE TIME TO 80 SECONDS «/ 
else next^time s 80; 

/» NOW SET UP TIMER TO CALL handler AND RETURN 

IT WILL SEEM TO THE CALLER THAT ALL IS NORMAL »/ 

call timer_manager_$alarm_^call (next^time, "11"b, handler); 
return; ~ ^ 
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TWO EXAMPLES USING TIMERS 



/» COME HERE WHEN TIMER GOES OFF «/ 
handler: entry; 

/« ESTABLISH »on unit» TO TRAP HIS QUITS »/ 
on quit begin; 

call ioa_ ("QUIT"); 

call ioa" ("You wanna get yourself logged out??"); 

i s i+1;"" 

go to ask^again; 

end; 

/» BASIC PROMPTING LOOP 

WE READ INPUT LOOKING FOR COOKIES »/ 
ask^again: 

" if i s 1 then call ioa ("I want a cookie."); 

else if i = 2 then call ioa_ ("Please give me a cookie."); 
else if i = 3 then call ioa_ ( 

"You had better give me a cookie."); 
. else if i s 4 then call ioa ("I WANT A COOKIE!"); 
else if i = 5 then call ioa"" ( 

"PLEASE— GIMME A COOKll! !!!"); 
else do; 

call ioa_ ("I give up. You^re hopeless."); 

call ioa""$nnl ("Guess I'll have to get one myself."); 

call ioa" ("COOKIECOOKIECOOKIE") ; 

/» AT THIS POINT I EITHER GOT A COOKIE FROM HIM 

OR FROM MYSELF - RESET i AND CALL COOKIE AGAIN »/ 
next set: 

~ i = 1; 

call cookie; 

call iox_$control (iox_$user_io, "start", null, code); 
return; ~ ~ 

end;. 

/« HERE'S WHERE I GRAB HIS INPUT LINES */ 
get list (answer); 

if answer = "cookie" I answer s "COOKIE" then do; 

call ioa_ ("Thanks. I needed that. YumYumYum • • . " ) ; 
go to next^set; 

end ; 

else do; 

i s i+1; 

go to ask^again; 

end ; 

end; 
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TWO EXAMPLES USING TIMERS 



! cookie 

r 11:56 0.065 1 
!hmu 

Multics MR8.0, load 63.0/100.0; 63 users 
Absentee users 0/5 

r 11:56 0.058 0 

I want a cookie. 

! who 

Please give me a cookie. 
KQUIT) 

QUIT 

You wanna get yourself logged out?? 
You had better give me a cookie. 
!new proc 

PLEA3E— GIMME A COOKIE!!!! 

! logout 

I give up. You're hopeless. 

Guess 1*11 have to get one myself .COOKIECOOKIECOOKIE 

!new proc 

r 11T57 1.829 68 
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TWO EXAMPLES USING TIMERS 



I print usage. pl1 1 

usage: proc (mc^ptr, name); 

/* THIS PROGRAM PRINTS OUT PAGE FAULT AND PAGING DEVICE 
FAULT INFORMATION EVERY HALF-SECOND OF CPU TIME »/ 

del (mc_ptr ptr, 

name char (*)} parameter; 

-—^ del tlmer_manager_$cpu_call entry (fixed bin (71), bit (2), entry), 
*=— ^ timer manager $reset cpu call entry (entry), 
— ^ cpu_tTme_and paging ""entry (fixed bin, fixed bin (71), 
fixed bin), 

iox $control entry (ptr, char (»), ptr, fixed bin (35)), 
ioa~ entry options (variable); 

del cleanup condition, 
code fixed bin (35), 
iox_$user_io external ptr; 

del (total^pf fixed bin, 
total^pdf fixed bin, 

first^ine bit (1) init ("1"b)) static; 

del pf fixed bin, 

time fixed bin (71), 
pdf fixed bin; 

/» ESTABLISH cleanup HANDLER TO RESET TIMER »/ 

— ^ on cleanup call timer_manager_^$reset_cpu_call (usage); 

/« PERFORM INITIALIZATION IF FIRST TIME »/ 
if first time then do; 

< — ^calT cpu_time_and_paging_ (total^pf, time, total pdf); 
call ioa~ ("Usage^counters initialized"}; 
call ioa_ ("Total page faults since process began '^i", 
total pf); 

call ioa_ T**Total pd faults since process began '"i", 

total pdf); 
first_time"s «0"b; 

end ; 

/» COMES HERE WHEN TIMER GOES OFF »/ 
else do; 

^^^^>call cpu_time_and_paging (pf, time, pdf); 
X call ioa_ ("In the half-second CPU interval:"); 

call ioa ("'"i page faults were taken", 

pf - total pf ) ; 
call ioa ("""i paging device faults were taken", 

pdf""- total pdf) ; 
total pf s pf ; 
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TWO EXAMPLES USING TIMERS 



total pdf s pdf; 

call Tox_$control (iox_$user_io, "start", 
null (), code); 

end ; 



/* FIRE UP HEXT TIMER IN EITHER CASE */ 

^ ^ call timer_manager_$cpu^call (500000, "10"b, usage); 

end usage; 
! usage 

Usage counters initialized 
Total page faults since process began 703 
Total pd faults since process began 0 
r 12:19 0.083 M 

! hmu 

Multics MR8.0, load 63*0/100.0; 63 users 
Absentee users 1/5 

r 12:19 0.055 7 
!list -first 2 

Segments = 62, Lengths = 12T* 

re 1 usage 

r w 1 usage. pll 

r 12:19 0.201 21 

! cookie 

r 12:19 0.052 1 
! pwd 

>udd>F15dw>Auerbach 
r 12:19 0*035 0 

I want a cookie. 
! cookie 

Thanks. I needed that. YumYumYum • • • 
! whome 

In the half-^second CPU interval: 

55 page faults were taken 

0 paging device faults were taken 

Auerbach.F15dw 

r 12:19 0.310 30 
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TWO EXAMPLES USING TIMERS 



!pl1 cookie 
PL/I 

In the half-second CPU interval; 

60 page faults were taken 

0 paging device faults were taken 

In the half-second CPU intervals 

41 page faults were taken 

0 paging device faults were taken 

In the half-second CPU interval: 

63 page faults were taken 

0 paging device faults were taken 

r 12:20 1.876 163 
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TIMER MANAGER SUMMARY 



FOR REAL-TIME TIMERS 



sleep 

alarm^call 
alarm_call_inhibit 

alarm_wakeup 
reset alarm call 



GO BLOCKED AT THIS POINT FOR SPECIFIED 

TIME 

CALL SPECIFIED ROUTINE AT SPECIFIED TIME 

CALL SPECIFIED ROUTINE AT SPECIFIED TIME 
WITH ALL INTERPROCESS SIGNALS MASKED OFF 

ISSUE A WAKEUP ON SPECIFIED EVENT-WAIT 
CHANNEL WHEN TIMER GOES OFF, PASSING A 
MESSAGE OF "alarm 

TURN OFF ALL TIMERS THAT CALL ROUTINE 
SPECIFIED WHEN MATURE 



reset^alarm^wakeup 



TURN OFF ALL TIMERS THAT WAKEUP SPECIFIED 
EVENT-^WAIT CHANNEL WHEN THEY MATURE 



FOR CPU-TIME TIMERS 

cpu_call CALL SPECIFIED ROUTINE AT SPECIFIED TIME 

cpu call inhibit CALL SPECIFIED ROUTINE AT SPECIFIED TIME 

WITH ALL INTERPROCESS SIGNALS MASKED OFF 

cpu wakeup " ISSUE A WAKEUP ON SPECIFIED EVENT-WAIT 

CHANNEL WHEN TIMER GOES OFF, PASSING 
A MESSAGE OF "cpu_time" 

reset cpu call TURN OFF ALL TIMERS THAT CALL ROUTINE 

SPECIFIED WHEN THEY MATURE 

reset cpu wakeup TURN OFF ALL TIMERS THAT WAKEUP SPECIFIED 
" " EVENT-WAIT CHANNEL WHEN THEY MATURE 



YOU ARE NOW READY FOR WORKSHOP 
#5 
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THE PROCESS STACK SEGMENT 



EXECUTION IN A STANDARD Multics PROCESS USES A STACK SEGMENT 



THERE IS ONE STACK SEGMENT PER RING WITH ENTRYNAME 'stack n» 
WHERE 'n* IS THE RING OF EXECUTION 



EACH STACK CONTAINS A STACK "HEADER" FOLLOWED BY AS MANY STACK 
"FRAMES" AS ARE REQUIRED BY THE PROCESS 



THE STACK DYNAMICALLY EXPANDS AND SHRINKS AS INDIVIDUAL FRAMES 
ARE "PUSHED" ONTO THE STACK (BY AN INVOKED PROCEDURE) AND "POPPED" 
OFF THE STACK (BY A RETURNING PROCEDURE) 



STACK 4 



OCTAL 



0 

63 
64 



611 
512 



1023 
1024 



STACK HEADER 



LOT (sttrttststaGit_4/0) 



ISOT 



0 

77 
100 



777 
1000 



1777 
2000 



FRAMES* 



1 



Timwxin is wiibli^ but not Ihb tfrn 32 toofdi 
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THE PROCESS STACK SEGMENT 



THE STACK HEADER 



• MOSTLY CONTAINS POINTERS TO SPECIAL CODE (STANDARD CALL, PUSH, AND 
RETURN OPERATORS) AND SPECIAL DATA BASES (LINKAGE OFFSET TABLE, 
REFERENCE NAME TABLE, ETC) WHICH ARE REQUIRED FOR THE NORMAL EXECUTICIN 
OF A PROCESS IN THE CORRESPONDING RING 



del 1 stack header 



based (sb) aligned, 



2 padi (4) fixed bin, 

2 old lot ptr ptr, /* OBSOLETE »/ 

2 comBineH stat ptr ptr, /» POINTS TO AREA CONTAINING 

SEPARATE STATIC »/ 

2 clr^ptr ptr, /» AREA_PTR FOR LINKAGE SECTION ALLOCATION »/ 

2 max"lot_size fixed bindTO^unal, 

2 main_proc invoked fixed bin(11) unal, 
2 run unit ?epth fixed bin(5) unal, 

fixed bind?) unal, /» IN WORDS »/ 



2 cur_lot_size 

2 system_free_ptr ptr 

2 user_free_ptr ptr 

2 null^ptr ptr 

2 stack_begin_ptr ptr 

2 stack~end_ptr ptr 

2 lot^ptr ptr 

2 signal_ptr ptr 

2 bar^mode^sp ptr 

2 pll^operators^ptr ptr 

2 calico p_ptr ptr 

2 push op ptr ptr 

2 returnjop^ptr ptr 



/* USUALLY POINTS TO SYSTEM FREE STORAGE 

/» USUALLY POINTS TO 

<unique>. area .linker 10 

/» THERE IS NO STACK FRAME 
PREVIOUS TO THE HEADER »/ 

/« POINTS TO NEXT USEABLE 

STACK FRAME »/ 
/* INITIALLY POINTS TO BASE OF STACK »/ 

/» POINTS TO SIGNALLING PROG FOR 

THIS RING »/ 
/« NEEDED BECAUSE BAR MODE PROGS CAN 

CHANGE THE STACK FRAME PTR REGISTER 

(PR6) »/ 
/» POINTS TO pll operators 

$operator tabTe •/ " 
/« POINTS TO'"ALM CALL OPERATOR »/ 

/* POINTS TO ALM PUSH OPERATOR »/ 

/» POINTS TO STANDARD RETURN ALM OPERATOR «/ 



2 return_no_pop_op_ptr ptr, /» POINTS TO SHORT RETURN ALM OPERATOR »/ 
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THE PROCESS STACK SEGMENT 



THE STACK HEADER 



2 entry_op_ptr ptr, 

2 trans^op^tv^ptr ptr, 

2 isot__ptr ptr, 

2 sct^ptr ptr, 

2 unwind er_ptr ptr, 



/« POINTS TO ALM ENTRY OPERATOR »/ 
/» POINTS TO A VECTOR OF SPECIAL 
LANGUAGE OPERATORS »/ 

/* POINTS TO SYSTEM CONDITION 

TABLE (SCT) »/ 
/* POINTS TO UNWINDER PROCEDURE 

FOR THIS RING »/ 



2 sys link info ptr ptr, /* POINTS TO »5yste!D LINK NAME 

TABLE »/ 

2 rnt ptr ptr, /« POINTS TO REFERENCE NAME TABLE «/ 

2 ect""ptr ptr, /* OBSOLETE »/ 

2 assign linkage ptr ptr, /* OBSOLETE */ 

2 pads (E) " bit (36); /» FOR FUTURE EXPANSION »/ 



• NOTE: 

set_system_storage SETS stack^header .system_free_ptr 

set_user_storage SETS stack_header.user_free_ptr 

WHEN THE NUMBER OF INITIATED SEGMENTS EXCEEDS 512, THE 
lot AND isot ARE COPIED TO SYSTEM FREE STORAGE 
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THE PROCESS STACK SEGMENT 



THE STACK FRAME 



# STACK FRAMES ARE VARIABLE LENGTH, AND CONTAIN BOTH CONTROL INFORMATION 
AND DATA FOR ACTIVE PROCEDURES 



# IN GENERAL, A STACK FRAME IS ALLOCATED EXPLICITLY BT THE PROCEDURE 
TO WHICH IT BELONGS (ITS OWNER) WHEN THAT PROCEDURE IS INVOKED 



• STACK FRAMES ARE THREADED TO EACH OTHER WITH FORWARD AND BACKWARD 
POINTERS, MAKING IT EASY TO TRACE THE PROCESS HISTORY 
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THE PROCESS STACK SEGMENT 



THE STACK FRAME 



del 1 stack^frame based(sp) aligned, 

2 pointer_registers(0 : 7) ptr, /« FOR ALM CALL PSEUDO-OP »/ 
2 prev sp pointer, 

2 nexf'sp pointer, /* IF EQUAL TO stack_end_ptr, POINTS TO 

NEXT AVAILABLE STACK FRAME LOCATION »/ 
2 return ptr pointer, /» TELLS US WHERE TO RESUME EXECUTION */ 
2 entry ptr pointer, /» POINTS TO THIS PROCEDURE'S ENTRY 

POINT */ 

2 operator and Ip ptr ptr, /» POINTS TO OPERATOR SEGMENT BEING 
~ USED BY THIS PROCEDURE OR, 

IF ALM PROCEDURE, POINTS TO 
LINKAGE SECTION »/ 
2 arg ptr pointer, /» POINTS TO arg_list TO BE USED BY THIS 

PROCEDURE «/ 

2 static ptr ptr unaligned, /• POINTS TO INTERNAL STATIC 

REGION »/ 

2 fio ps_ptr ptr unal, /« FOR FORTRAN I/O »/ 
2 on unit relp1 bit(18) unaligned, /» POINTS TO A LIST OF 

ENABLED CONDITIONS 
(RELATIVE TO STACK 
FRAME BASE) */ 
2 on_unit_relp2 bit(18) unaligned, /♦ OBSOLETE */ 
2 translator_id bit(18) unaligned, /* A CODED NUMBER INDICATING 

WHAT GENERATED THE OBJECT »/ 
2 operator_return_offset bit(18) unaligned, /* USED BY SOME 

pl1_operators_ 
FUNCTIONS; IF 0, 
THEN A DEDICATED 
REGISTER CONTAINS 
RETURN LOCATION »/ 

2 x(0: 7) bit(18) unaligned, } 

2 a bitC36) ? } USED TO SAVE REGS WHEN AND IF THIS 

2 q bit(36), } PROCEDURE DOES AN ALM CALL 

2 e bit(36), } 

2 timer bit(27) unaligned, 

2 pad bit(6) unaligned, 

2 ring_alarm_reg bit(3) unaligned; 

/» AUTOMATIC VARIABLES »/ 

/* THREADED LIST OF ON UNITS »/ 
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THE PROCESS STACK SEGMENT 



THE STACK FRAME 



del 1 on^unit based aligned , 

2 name ptr, /* ptr to the condition name •/ 

2 body ptr, /• ptr to proc to handle condition •/ 

2 size fixed bin, /* length of the condition name »/ 

2- next bit (18) unaligned, /* rel ptr to next on unit*/ 

2 flags unaligned, 

3 pll snap bit (1) unaligned, /» if "1"b then call snap proc 
3 P^'^Z. ^'^^ unaligned, /* "1"b indicates to use 

system condition handler */ 

3 pad bit (16) unaligned, 
2 file ptr; /» ptr to file descriptor for pll I/O 

condition */ 
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ARGUMENT LIST FORMAT 



• AN OBJECT SEGMENT CREATES AN ARGUMENT LIST BEFORE INVOKING ANOTHER 
PROCEDURE 

D ARGUMENT LISTS CONFORM TO STANDARD FORMAT 

Q ARGUMENT LISTS DO NOT CONTAIN THE ARGUMENTS THEMSELVES 

B SPECIFICALLY, THE ARGUMENT LIST CONTAINS 
0 A TWO WORD HEADER 
D AN ARRAY OF ARG POINTERS 

Q AN OPTIONAL POINTER TO STACK FRAME OF CONTAINING BLOCK 
8 AN OPTIONAL ARRAY OF POINTERS TO ARGUMENT DESCRIPTORS 



Not To Be Reproduced 



11-? 



F15D 



ARGUMENT LIST FORMAT 



STANDARD ARGUMENT LIST 



2»n. 



ARGUMENT COUNT- n 


CODE 


DESCRIPTOR COUNT- n 


0 


POINTER TO ARGUMENT 1 




POINTER TO ARGUMENT 2 


• 

• 


POINTER TO ARGUMENT n 




OPTIONAL POINTER TO STACK FRAME 
OF CONTAINING BLOCK 




POINTER TO DESCRIPTOR 1 




POINTER TO DESCRIPTOR 2 




• 

• 


POINTER TO DESCRIPTOR n 





STANDARD DESCRIPTOR 



FLAG 



* TYPE * ^ 



r 



PRESENT ONLY 
IF NUMBER OF 
DIMENSIONS ^0 



PACKED 



NUMBER OF DIMENSIONS 



SIZE 



LOWER BOUND 



UPPER BOUND 



ELEMENT SEPARATION* 



.OWER BOUND 



UPPER BOUND 



ELEMENT SEPARATION* 



) 



FOR RIGHTMOST 
DIMENSION 



FOR LEFTMOST- 
DIMENSION 



* IN BITS IF PACKED: IN WORDS OTHERWISE 
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ARGUMENT LIST FORMAT 



• IN THE PREVIOUS DIAGRAM: 

n IS THE NUMBER OF ARGUMENTS PASSED TO THE CALLED PROCEDURE 

code IS 4 FOR NORMAL INTERSEGMENT CALLS AND IS 10 (OCTAL) 
FOR CALLING SEQUENCES THAT CONTAIN AN EXTRA STACK FRAME 
POINTER - IT WILL BE PRESENT FOR CALLS TO PL/I INTERNAL 
PROCEDURES 

descriptor count = n OR 0 
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ARGUMENT DESCRIPTORS 



• A PROCEDURE WHICH MAY RECEIVE 



A VARYING NUMBER OF ARGS 



ARCS WITH VARYING EXTENTS 



MUST BE PASSED AN ARGUMENT LIST CONTAINING DESCRIPTORS OF THOSE 
ARGUMENTS, SO THAT THE CALLED PROCEDURE MAY KNOW HOW TO INTERPRET 
THE ARGUMENTS 



Q PL/1 ONLY PASSES DESCRIPTORS IF CALLED PROCEDURE IS DECLARED 
Gentry options (variable)* OR PARAMETERS OF CALLEE HAVE * 



Q IT IS THE RESPONSIBILITY OF A PROGRAM CALLING SUCH A PROCEDURE 
TO BUILD DESCRIPTORS AND INCLUDE THEM IN THE ARGUMENT LIST 

Q DESCRIPTORS HAVE A STANDARD FORMAT AS DEFINED BELOW: 



EXTENTS 



del 1 descriptor 



(2 flag 
2 type 



2 packed 

2 number dims 

2 size ~ 



aligned, 
bit(l), 
bit(6), 
blt(l), 



bit(4), /» = 15 max */ 
bit(24)) unaligned; f* HAS VARIOUS 

MEANINGS »/ 



WHERE type IS ENCODED AS SHOWN ON THE NEXT PAGE» 
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ARGUMENT DESCRIPTORS 



/» BEGIN INCLUDE FILE ... std_descriptor_types.incI.pl1 «/ 

/* This include file defines mnemonic names for the Multics 

standard descriptor types, using both pll and cobol terminology. 

del (real fix bin_1_dtype init (1), 
real"fix~bin 2_dtype init (2), 
real flt_bin l^dtype init (3), 
real'"flt bin^a^dtype init (4), 
cplx~fix~bin]]]1_dtype init (5), 
cplx^fix bin22_dtype init (6), 
cplx~flt~bin 1 dtype init (7), 
cplx~flt3bin~2~dtype init (8), 
real fix_dec 9bit_ls dtype init (9), 
real fit dec~9bit dtype init (10), 
cplx''fix"*dec^9bit~ls dtype init (11), 
cplx_flt_dec3bit_dtype init (12), 
pointer dtype init (13) i 
offset 3type init (14), 
labeljdtype init (15), 
entry dtype init (16), 
struc'^ure^dtype init (17), 
area_dtype init (18), 
bit_dtype init (19), 
varying_bit_dtype init (20) , 
chared type Tnit (21), 
varying char dtype init (22), 
file_dtype init (23), 

real_fix_dec_9bit_ls_overp_dtype init (29), 
real'"fix]^dec 9bit_ts'"overp_dtype init (30), 
real~fix_bin~1_uns_d'fcype init (33), 
real~fix~bin_2_uns_dtype init (34), 
real_fix_dec_9bit_uns dtype init (35), 
real^fix dec 9bit ts "^type init (36), 

real fix^dec 4bit uns dtype init (38), /* digit-aligned »/ 
real_fix~dec~4bit_ts Htype init (39), /* byte-aligned »/ 
real_fix_dec 4bit_bylealigned uns dtype init (40), /» COBOL »/ 
real fix dec 4bit Is dtype init (II), /» digit-aligned »/ 
real~flt~dec~4bit3dtype init (42), /» digit-aligned «/ 
real_fix dec""4bit bytealigned Is dtype init (43), 
real fit dec 4bit bytealigned dtype init (44), 
cplx^fix dec 4bit'"bytealigned'"ls dtype init (45), 
cplx~flt~dec3bit2bytealigned~dtype init (46), 
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ARGUMENT DESCRIPTORS 



cobol comp_6_dtype init (1), 
cobol~comp_7~dtype init (1)^ 
cobol^display Is dtype init (9), 
cobol_structure_3type init (17), 
cobol_char_string_dtype init (21), 
cobol~display_ls overp^dtype init (29), 
cobol_display_ts2overp_dtype init (30), 
cobol^display^uns^dtype init (35), 
cobol_display""ts dtype init (36), 

cobol_comp_8_uns]3dtype init (38), /* digit aligned */ 
cobol_comp_5_ts_dtype init (39) , /* byte aligned •/ 
cobol comp_5_uns dtype init (40) , 

cobol2comp_8_ls_3type init (41) /» digit aligned */ 
) fixed bin internal static options (constant); 

del (ft integer_dtype init (1), 
ft^real dtype init (3), 
ft3;doubIe_dtype init (4), 
ft_complex dtype init (7), 
ft external dtype init (16), 
ft'logical dtype init (19), 
ft^char^dtype init (21) 

) Tixed'^'bin internal static options (constant)^ 

del (label_constant run time^d type init (24), 
int_entry_runtTme_dtype init (25) , 
■ ext^entry^runtime dtype init (26), 
ext_proceHure_run'Eime_dtype init (27), 
picture_runtime_dtype""init (63) 
) fixed'bin internal static options (constant); 



/» END INCLUDE FILE ... std_descriptor_types.incl,pl1 */ 
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ARGUMENT DESCRIPTORS 



ar8_lKt_ptr 



arg_count« 1 
desc^count « 1 



eodtt«4 



POINTER TO ARGUMENT 1 



POINTER TO DESCRIPTOR 1 



cn) 



D<1) 



C(2) 



0(2) 



C(3) 



0(3) 



C(4) 



0(4) 



C(5) 



0(5) 



dd I S. 

2 Aflxadbin(17.4), 
2 B(5), 
3C. 

3D; 



1 


17 


0 


0 


2 


BASICBESCRIPTOR OP S 


1 


1 


0 


0 




17 


BASIC DESCRIPT0RT3F A 


1 


17 


0 


1 


2 


BASIC DESCRIPTOR OF B 


1 


LOWER BOUND OF B 


5 




2 


ELEMENT SEPARATION OF B 


1 


1 


0 


1 


0 


17 


BASIC DESCRIPTOR OF C 


1 


LOWER BOUND OF C 


5 


UPPER BOUND OF C 


2 


ELEMENT SEPARATION OF C 


1 


1 


0 


t 


0 


17 


BASIC DESCRIPTOR OF D 


1 


LOWER BOUND OF D 


5 


UPPER BOUND OF D 


2 


ELEMENT SEPARATION OF 0 
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TOPIC XII 
Special Programming Techniques 
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CALLING A PROCEDURE ON THE FLY 

.# MOTIVATION 

B CONSIDER THE COMMAND PROCESSOR, WHICH: 
0 TAKES THE COMMAND LINE FROM THE USER 
B PARSES THE LINE INTO COMMAND NAME AND ARGUMENTS 
B CALLS THE COMMAND 

B HOW CAN IT CALL ALL THE VARIOUS COMMANDS (AND USER WRITTEN OBJECT 
SEGMENTS) WITHOUT HAVING DECLARED THEM AS AN EXTERNAL ENTRY? 
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CALLING A PROCEDURE ON THE FLY 



• HOW CAN THE USER DO SUCH A "CALL ON THE FLY"? 



S hcs_$make_entry 

Q call hcs_$make^entry (ref^ptr, entryname, entry_point__name, 

entry^point, code); 

Q GIVEN A REFERENCE NAME AND AN ENTRY POINT NAME . RETURNS THE 
mM VALUa OF THE SPECIFIED ENTRY POIMT 

e IF THE REFERENCE NAME HAS NOT BEEN INITIATED, THE SEARCH 
RULES ARE USED TO FIND A SEGMENT WITH THAT NAME, THE SEGMENT 
IS MADE KNOWN AND THE REFERENCE NAME INITIATED 



Q cu_$generate_call 

B call cu_$generate_call (proc^^entry, arg^ptr); 

Q USED TO INVOKE A PROCEDURE BY PASSING IT AN ENTRY VALUE AND 
AN ARGUMENT POINTER (THE ENTRY VALUE WAS OBTAINED BY A PREVIOUS 
CALL TO hcs_$make_entry) 

Q THE USER MUST HAVE PROVIDED AN ARGUMENT LIST STRUCTURE 
(EVEN IF NO ARGUMENTS ARE PASSED TO .THE PROCEDURE BEING 
INVOKED) 
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CALLING A PROCEDURE ON THE FLY 



• SIMPLIFIED EXAMPLE: 



generate_pwd : proc; 
del 1 arg_list aligned, 
2 header, 

3 arg_count fixed bin (17) unsigned unal init (0), 
3 padi bit (1) unal, 

3 call^type fixed bin (18) unsigned unal, 

3 desc_count fixed bin (17) unsigned unal, 

3 pad2 bit (19) unal, 
2 arg__ptr ptr init (nullO), 
2 desc^ptr ptr init (nulK)); 

del cu_$generate call entry (entry, ptr); 
del hcs $make enTry entry (ptr, char (*), char (*), entry, 

fixed bin (35)); 

del code fixed bin (35); 

del com_err_ entry options (variable); 

del entry^point entry variable; 

call hcs $make entry (nulK), "pwd", "pwd", entry^point, code); 
if code 0 tHen do; 

call com^err^ (code, "generate"); 

return; : " 

end; 

call cu__^$generate_call (entry^point, addr (arg^list)); 
end generate^pwd; ~ ^ 
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BUILDING DATA SEGMENTS 



• create_data_segroent_ 

B call create_data_segment_^ (cds^arg^ptr , code); 



8 USED IN CONJUNCTION WITH THE create data segment COMMAND TO CREATE 
A DATA SEGMENT IN STANDARD OBJECT TORMAT 

8 REFERENCES A PL/1 DATA STRUCTURE (SUPPLIED BY THE USER) WHEN 
BUILDING THE DATA SEGMENT 

8 PERMITS THE CALLER TO CREATE A DATA SEGMENT FOR WHICH THE 
LEVEL-2 MEMBERS OF THE PL/1 STRUCTURE ARE ACCESSIBLE AS ENTRY 
POINTS (NOTE THE pds AND sys info SEGMENTS) 



Not To Be Reproduced 



F15D 



BUILDING DATA SEGMENTS 



HOW cds WORKS 




CREATED WHEN cds COMMAND 
PROCEDURE AUTOMATICALLY 
CALLS demo cds 



CREATES 
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BUILDING DATA SEGMENTS 



! pr >ldd>include>cds_args.lncl.pl1 



/* BEGIN INCLUDE FILE cds_args.incl.pl1 »/ 

del 1 cds_args based aligned, 
2 sections (2) , 

3 p ptr, /* pointer to data for text/static section */ 

3 len fixed bin (18), /* size of text/static section */ 

3 struct^name char (32), /* name of declared structure */ 

2 seg name char (32), /* name to create segment by •/ 

2 num^exclude^names fixed bin, /* number in exclude array */ 

2 excTude_array_ptr ptr, /* pointer to exclude array */ 

2 switches, — /» control switches »/ 

3 defs_in_link bit (1) unal, /* says put defs in linkage */ 
3 separate^static bit (1) unal, separate static section 

" wanted »/ 

3 have_text bit (1) unal, /* ON if text section given */ 

3 have_static bit (1) unal,/* ON if static section given */ 

3 pad bit (32) unal; /* must be zero */ 

del exclude^names (1) char (32) based; 

" /* pointed to by cds_args.exclude_array_ptr */ 

/» END INCLUDE FILE cds args.incl .pll »/ 
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! pr demoted s.pll 



demoted s: proc; 

del create_data_segment_ entry (ptr, fixed bin (35)); 
$ include cds^args ; *" 
del cds_arg_ptr ptr; 

del (ioa , com err_) entry options (variable); 
del code fixeH bin (35); 
del (size, null) builtin; 

del 1 entrypointnames based (eds arg ptr -> eds args. sections (1).p), 
2 alpha fixed bin (35), ~ " " 
2 beta char (4), 
2 gamma bit (36), 
2 delta ptr; 

allocate cds_args set (cds_arg_ptr) ; 

eds_arg_ptr -> cds_args» sections (1).len = size (entrypointnames); 

eds_arg]]]ptr -> eds^args. sections (1 ) .struet^name s "entrypointnames"; 

eds^^arg^ptr -> cds_args,seg name s "data__^seg"; 

cds_arg~ptr -> cds~args,sec'€ions (2).len'"s 0; 

eds_arg_ptr -> eds^args. sections (2) .struct^name = ""; 

eds^arg^ptr -> cds^args.num exelude^names s^O; 

cds~arg]^ptr -> cds_args,exeTude_array_ptr = null (); 

cds_arg_ptr cds^args.switches.defs^in^link s "0"b; 

eds^arg^ptr -> eds args* switches • separate static s "0"b; 

eds"arg~ptr -> cds~args • switches. have^texT = "1"b; 

cds^argj^pt'" -> eds~args»switehes.hav ecstatic s "0"b; 

cds^arg_ptr -> eds^args. switches. pad =" "0"b; 

call ereate_data_segment_ (eds_arg_ptr , code); 
if code 0 then call com err_ (code, "demo^eds"); 
else call ioa_ ("Segment creation complete."); 
end demoted s; 
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BUILDING DATA SEGMENTS 



Ian demo cds.pH s.cds 
r 1M:32~0.096 2 

!cds d emoted s 
CDS -PL/I 26a 
Segment creation complete, 
r 14i32 1.699 53 

lis -first 3 

Segments = 43, Lengths s 155. 



r 1 data^seg 

re 1 d emoted s 
r w 1 demo]^cds.pl1 
demo cds.cds 



r 14:33 0.151 2 
!pli data^seg 

data seg 10/10/80 1433.9 mst Fri 



Object Segment >udd>MEDmult>F15C>do>data seg 
Created on 10/10/80 1432.9 mst Fri " 
by NDibble.MEOmult.a 

using create_data_segment_," Version II of Friday, May 16, 1980 
Object Text Defs Link Symb Static 



Start 0 0 6 52 62 62 

Length 224 6 44 10 126 0 

i 

6 Definitions: 

segname: data^seg 

textjO alpha 

textll beta 

text! 4 delta 

text 12 gamma 

symbiO symbol^table 



No Links. 
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CREATING AN ERROR TABLE 



USERS MAY CREATE THEIR OWN STATUS CODE TABLE 



Q THEY ARE CONSTRUCTED USING ALM MACROS DEFINED IN et_macros.lncl.alra 



THE SKELETON OF THE SOURCE CODE IS AS FOLLOWS: 

include et^macros 
et • • • • « 
ec «..•• 
ec •• • 
ec • . • • • 



end 



O THERE ARE THUS 2 MACROS USED 

B THE "et» MACRO INITIALIZED THE CODE TABLE AND MUST APPEAR 
FIRST 

et <name of table> 



0 THE «ec« MACRO ASSOCIATES A STATUS CODE NAME WITH A SHORT 
MESSAGE AND A LONG MESSAGE 

ec <code_name>,<short_message>5(<long__message>) 



D EXAMPLE: 

include et^macros 
et user errors 

ec too 7ew_arguments,toofeWy( There were too few arguments.) 
ec couTd_not_access_data ,nopr iv , 

(User is not sufficiently priviliged to access data, 
ec ( fatal, disaster) , disaster » / 

(There was a disastrous error in the data base.) 

end 
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CREATING AN ERROR TABLE 

Q THE CODE NAME: 

ii MUST BE 31 CHARACTERS OR LESS IN LENGTH 

D MULTIPLE NAMES MAY BE GIVEN (SEPARATED BY COMMAS AND ENCLOSED 
IN PARENTHESIS) 

B THE SHORT MESSAGE: 

Q MUST BE 8 OR LESS CHARACTERS IN LENGTH 
fl IF OMITTED, IT IS SET TO THE CODE NAME 

0 THE LONG MESSAGE MUST BE: 

B 100 OR LESS CHARACTERS IN LENGTH 
B ' ENCLOSED IN PARENTHESIS 
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! pr weird^errors.alm 

include et_macros 
et weird_errors 

ec err or_a, number 2, (Warning: The number has reached two.) 

ec error_b,number3f (Second Warning: The number has reached three.) 

■ ■ end - ■ ' "* . 

I aim weird errors.alm 

■ ALM 

t pr calling^program.pll 

calling^program: proc; 

del x''fixed bin (IT) external static init(O); 

del com^err^ entry options (variable); 

del myjsubprogram entry (fixed bind?) > fixed bin (35)); 

del code fixed bin (35); 

del sysprint file; 

X St X + 1 ; 

put data (x) ; 

put skip; 

call my^suprogram (x, code); 

if oode 0 then call com err (code, ^calling program"); 
end calling^program; 

! pr my^subprogram.pll 

my subprogram: proc (input, code); 
Hcl input fixed bin (IT); 
del code fixed bin (35); 

del weird_errors$error a fixed bin (35) external static; 
del weird^errorsierror^b fixed bin (35) external static; 
code s 0;"" ~ 

if input 2 2 then code = weird errors$error a; 
if input = 3 then code = weird^errors^error^b; 
end my^sub program; ^ 

! calling program 
1; 

! ealling^program 
xs 2; 

calling_program: Warning: The number has. reached two. 

f calling program ■ * ' . 

x:= 3; 

ealling_program: Second Warnings The number has reached three. 
! calling program 

V- ^ il- 



Not To Be Reproduced 



12-t1 



F15D 



CREATING AN ERROR TABLE 



TOU ARE NOW READY FOR WORKSHOP 
#6 
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TOPIC XIII 
The Process Environnent 
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THE STANDARD PROCESS ENVIRONMENT 



• THE STANDARD PROCESS ENVIRONMENT IS ESTABLISHED FOR A PROCESS BY 
THE SUPERVISOR WHEN THAT PROCESS IS CREATED 



• THE SERIES OF PROGRAMS INVOKED BEGINNING WITH THE TIME THAT A USER 
CONNECTS WITH THE FRONT-END PROCESSOR AND TERMINATING WITH THE FIRST 
READY MESSAGE PRINTED ON THE USER'S TERMINAL IS CONSIDERED THE "PROCESS 
CREATION CYCLE" 



• MUCH OF THE WORK DONE TO CREATE A PROCESS IS DONE BY THE SUPERVISOR 
IN THE SUPERVISOR RING (RING 0), AND SOME OF THE WORK IS DONE IN 
THE USER'S RING 



• BEFORE EXAMINING THE OPTIONS AVAILABLE TO THE DESIGNER FOR MODIFYING 
OR REPLACING THE STANDARD PROCESS ENVIRONMENT, AN EXAMINATION OF 
WHAT STEPS THE SUPERVISOR NORMALLY TAKES WILL BE WORTHWHILE 
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THE STANDARD PROCESS ENVIRONMENT 



fWAKEUn 
ITTY EVENTJ 



THIS IS THE EVENT-CALL HANDUR 

THATWA5SETUP 

ASSUCH8Y aw.Swi.Ritm 



• PRINT LOGIN BANNER 



HL.eH_ 



• VERIFIES PERSON.ID 
ANOMSSMORO 



• REFERENCES THE PROJECT DEFINITION TABLE (pdtl 

• VERIFIES PROJECT.ID 

• mrriALiZEssoME accountino 

DATABASES 



RING 
CHANGE 




• PROCESS DIRECTORY CREATED AND SCREECH4IAME0 

• PROCESS INITIALIZATION TABLE (piti CREATED/INITIALIZED 

• ACTIVE PROCESS TABLE ENTRY (apM CREATED/INITIALIZED 

• KNOWN SEGMENT TABLE OaO CREATECVINITIALiZEO 

• PROCESS DATA SEOAENT fpdt) CREATEOANITIALUXD 

• 36«IT PROCESS. ID DEVELOPED 



(tad(_4 CREATED 

CURRENT VAUDATION LEVEL ADJUSTED 



IF DAEMON 



^ \ \ N 



IF A nwt.upM IS TO BE 
EXECUTED. COMMAND 
LHiEiS 

' OTHERWISE. COMMAND 
LINE IS NULL 



CHECKS pit TO SEE IFi 
or immen BEING LOGGED IN 



IF ABSENTEE 



r 



IF 

INTERACTIVE 



Mir.iml.Mt 






RETURN 


■ 






MM. 



• MAKE ATTACHMENTS OF 4 STANDARD SWITCHES 

• DETERMINE init_prae FROM pit 

• ESTABLISH STATIC HANDLERS FOR 1 
ep«t and aim OONOITIONS 



CALL 'inrt_proc' PROCEDURE (NORMALLY | 
PASSING adrirCpit) IFF SYSTEM-SUPPLIED OVERSEER 
BEING CALLED 




• SET UP DEFAULT HANDLER (wai) ^R 
THE any.othar CONDITION 

• PRINT MOTD IF sart.uvuM NOT TO BE EXECUTED 
AND LOGIN NOT-briaf _ _ 

s DEVELOP A COMMAND LINE AND PASS IT TO 



• ESTABLISHES LEVEL 1 

• INVOKES CURRENT READY PROCEDURE BY 
CALLING CH.tiMdy_prae 

• CALLS ea.Sepb WHICH PASSES C OMM AN D UNE 
TO CURRENT COMMAND PROC E SSO R 
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THE STANDARD PROCESS ENVIRONMENT 
PROCESS CREATION IN THE SUPERVISOR RING 



# THE "SYSTEM CONTROL PROCESS" (Initializer .SysDaemon) IS RESPONSIBLE 
FOR RESPONDING TO ATTEMPTS TO CREATE A PROCESS, AND SOME OF THE 
MODULES EXECUTED BY THE SYSTEM CONTROL PROCESS IMPLEMENT PROCESS 
CREATION AS FOLLOWS: 



B ANSWERING SERVICE 

D IS RESPONSIBLE FOR 
Q INTERACTIVE LOGINS 
0 HANGUPS 

Q THE LOGGING OF THESE ACTIVITIES 

D MANAGING THE COMMUNICATION LINES CURRENTLY ATTACHED TO SYSTEM 
(USES CHANNEL DEFINITION TABLE) 

0 asu $asu listen ESTABLISHES AN EVENT-CALL CHANNEL FOR 
EACH COMllNE, MAKING »dialup_« THE EVENT HANDLER 

B A "CONNECT" ON A COMLINE IS CONSIDERED A "TTY EVENT", 
WHICH RESULTS IN A WAKEUP ON ONE OF THESE CHANNELS 



Q dialup_^ (IN >tools>bound_user^control^) 



D IS AUTOMATICALLY CALLED WHEN A TERMINAL IS CONNECTED 



Q PRINTS LOGIN BANNER ON THE TERMINAL 



Q READS INITIAL TYPED LINE (login, enter, enterp, dial, ETC) 
AND PASSWORD 



D CALLS lg_etl_$login TO VERIFY PERSON^ID AND PASSWORD 
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THE STANDARD PROCESS ENVIRONMENT 
PROCESS CREATION IN THE SUPERVISOR RING 

8 dialup_, CONTINUED 

H CALLS act_ctl_$open_account AND act_ctl_$cp TO 

I VERIFY PROJECT_ID (VIA A CHECK OF PROJECT DEFINITION TABLE) 
B INITIALIZE SOME ACCOUNTING DATA BASES FOR THIS PROCESS 

ir FINALLY CALLS cpg (CREATE PROCESS GROUP) TO ACTUALLY CREATE 
PROCESS " 

II 36-BIT PROCESS ID DEVELOPED 

0 PROCESS DIRECTORY CREATED AND SCREECH-NAMED 
B PROCESS INITIALIZATION TABLE CREATED/INITIALIZED 
B ACTIVE PROCESS TABLE ENTRY CREATED/INITIALIZED 
B KST AND DSEG CREATED/INITIALIZED 

* 

B PROCESS DATA SEGMENT (RING 0 STACK) CREATED/INITIALIZED 

B FINALLY, CONTROL IS PASSED IN A RATHER UNUSUAL FASHION TO THE 
OUTER RING IN WHICH THE PROCESS IS TO RESIDE - 

B A STACK SEGMENT IS CREATED IN THE ULTIMATE RING (USUALLY 4) 

fl A STACK FRAME IS LAID DOWN FOR A USER RING INITIALIZATION 
PROGRAM 

i THE CURRENT VALIDATION LEVEL IS ADJUSTED TO THAT RING LEVEL 
B A PSEUDO-RETURN IS MADE TO THAT USER-RING INITIALIZATION PROGRAM 
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THE STANDARD PROCESS ENVIRONMENT 
PROCESS INITIALIZATION IN THE USER RING 

• THE STANDARD PROCESS ENVIRONMENT IS ESTABLISHED IN THE USER RING BY 
THE INVOCATION OF THE USER-RING PROCESS CREATION PROGRAMS: 

D user_init_admin_ FUNCTIONS 

S AFTER BEING INVOKED THROUGH ONE OF THREE ENTRY POINTS: 
Q user^init^admin^ 
B absentee_init_admin_ 
Q daemon_lnit_admin__ 

D IT CALLS EITHER 

0 user_real_init_admin_$user_real_init_admin_ 

D OR daemon_real_init^admin^$daemon_real_tnit_admin_ 

H OR absentee_real_init_admin_$absentee_real_init_adBiln_ 

a -WHEN RETURNED TO BY ONE OF ABOVE, IT CALLS THE «init_proc' 
PROCEDURE 

9 THE VALUE OF 'init proC IS RETURNED BY ONE OF THE ABOVE 
THREE 

1 A pit_ptr IS PASSED TO init_proc 
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THE STANDARD PROCESS ENVIRONMENT 
PROCESS INITIALIZATION IN THE USER RING 



8 user real init admin FUNCTIONS 



B DEVELOP PTR TO PROCESS INITIALIZATION TABLE (pit) 



fl DETERMINE FROM pit WHICH IO_MODULE TO USE (USUALLY tty_) 



Q ATTACH user^input, user^output, error^output AS SYNONYMS FOR 
user i/o 



B ATTACH AND OPEN user i/o TO CHANNEL NAME FOUND IN pit 



B DETERMINE (FROM pit) WHAT 'init^proc* PROCEDURE IS TO BE USED 
(USUALLY process_overseer_$proeess__overseer_) 

B PROJECT ADMINISTRATOR MAY FORCE A PARTICULAR init proc TO 
BE USED 

B USER MAY HAVE BEEN GIVEN PERMISSION TO USE •-po» CONTROL 
ARG OF THE login COMMAND, AND COULD HAVE USED IT TO SPECIFY 
THE DESIRED init proc 



B SET UP STATIC HANDLERS FOR 'alrm', •cput«, AND •term» CONDITIONS 
BY CALLING set manager $set 
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THE STANDARD PROCESS ENVIRONMENT 
PROCESS INITIALIZATION IN THE USER RING 

Q process^overseer^ FUNCTIONS 

1 CALL condition TO SET UP 'default error handler $wall« AS 
THE HANDLER FOJT 'any^other' CONDITION 

I IMPORTANT: IN ORDER TO COMPLETELY CONTROL A USER, ONE 
MUST BE ABLE TO CHANGE THIS DEFAULT BEHAVIOR. THIS IS ONE 
OF THE MOST IMPORTANT REASONS FOR FURNISHING A SPECIAL 
initj;>roc. 

I CHECK pit TO SEE IF THIS IS new_proc OR login 

B CHECK pit TO SEE IF start_up.ec SHOULD BE INVOKED 

B RECALL: USE OF -ns LOGIN CONTROL ARG IS RESTRICTABLE 

_L BUILD ONE OF TWO INITIAL COMMAND LINES: 

B exec^com startup_dir> start-up instance type 

B WHERE startup dir IS HOME DIRECTORY, PROJECT DIRECTORY, 
OR >sc1 " 

B WHERE instance IS 'login* OR *new_proc' 

B AND type IS 'interactive* OR 'absentee* 

B home_dir, instance, AND type ARE DETERMINED FROM pit 

B (NULL COMMAND LINE) 

B TERMINATE pit 

B CALL listen_$listen_ WITH INITIAL COMMAND LINE 
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THE STANDARD PROCESS ENVIRONMENT 
PROCESS INITIALIZATION IN THE USER RING 

0 listen_ 

B BASIC FUNCTIONS 

e 'LISTENS' FOR LINES TYPED BY THE USER 

Q PASSES COMMAND LINE ON TO THE CURRENT COMMAND PROCESSOR 

a INVOKES CURRENT READY PROCEDURE WHEN RETURNED TO (AFTER 
COMMAND LINE EXECUTION OR PRINTING OF ERROR MESSAGES) 

Q ALSO ENABLES QUITS 

D ENTRY POINTS IN listen^: 
Q listen^ 

Q INVOKED ONLY BY init_proc 

fl ESTABLISHES A FRAME CONSIDERED TO BE "FIRST LEVEL" 

S PASSES com_line_ptr AND coin^line^length TO cu_$cp 

B CALLS cu_$ready_proc WHEN RETURNED TO 

B release^stack 

B CALLED WHEN AN ATTEMPT IS MADE TO REENTER COMMAND LEVEL 
(LEVEL a^ 1) 

B ESTABLISHES ITS STACK FRAME AS CURRENT LEVEL OF LISTENER 

B 'REMEMBERS' PREVIOUS LEVEL AND VERY FIRST LEVEL OF LISTENER 
(FOR PURPOSES OF release) 

B PASSES com_line_ptr AND eom_line_length TO cu_$cp 

B CALLS cu_$ready_proc WHEN RETURNED TO 

0 OTHER ENTRY POINTS 

B USED BY OTHER PROCEDURES TO OBTAIN INFO ABOUT 

WHERE TO RELEASE TO 
WHERE TO 'start' 
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MODIFYING THE PROCESS ENVIRONMENT 



• ONE CAN MODIFY THE STANDARD PROCESS ENVIRONMENT USING SEVERAL DIFFERENT 
TECHNIQUES 



• THE AMOUNT OF CONTROL DESIRED ON A PROCESS CAN BE CLASSIFIED AS 
FOLLOWS: 



e SIMPLE CONTROL 



USING 'exec com' SEGMENTS, THE USER CAN BE RESTRICTED TO LABEL 
ENTKY POINTS IN THE ec SEGMENT ITSELF 



8 STANDARD PROCESS OVERSEERS 



PROVIDED BY SYSTEM TO CONTROL THE ENVIRONMENT OF THE USER IN 
VARYING LEVELS OF RESTRICTION 

S accounts overseer IS USED BY 'REGISTRATION AND ACCOUNTING 
ADMINISTT^ATORS' TD LIMIT THE NUMBER OF THINGS THEY CAN DO 
(SEE APPENDIX B) 



Q SEE APPENDIX £ FOR SOME OF THE STANDARD OVERSEERS 



fl CLOSED SUBSYSTEM OVERSEERS 



g THE • f St process_overseer_» IS AN EXAMPLE OF AN OVERSEER WHICH 
PLACES THE USER IN A COMPLETELY CLOSED ENVIRONMENT FROM WHICH 
ESCAPE IS IMPOSSIBLE 
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MODIFYING THE PROCESS ENVIRONMENT 



B LIMITED SUBSYSTEMS 



0 THE SYSTEM PROVIDES THREE WAYS OF FORCING USERS INTO A LIMITED 
SUBSYSTEM 



fl USER-CREATED SUBSYSTEMS 



Q BY WRITING ONE'S OWN PROCESS OVERSEER, ONE CAN ATTAIN COMPLETE, 
CUSTOMIZED CONTROL OVER A PROCESS 



MOST OF THESE FUNCTIONS REQUIRE INVOLVEMENT OF A PROJECT ADMINISTRATOR 
(BECAUSE OF NEED TO MODIFY pmf AND INSTALL NEW pdt) 



• EXAMPLE OF A pmf 

Projectid: 
Initproc J 
Grace; 
Attributes: 

Limits 

personid: 
personid: 

personid; 
per son id: 
personid: 
personid: 
personid: 
end; 



F15DI 

process overseer ; 
60.| 

vinitproc , vhomedir ,multip ,nostartup ,dialok , 
disconnect ok, save on disconnect! 
75.00; " " ~ 

Student_01; 
Student_02; 
Student"03; 
Student 04; 

Student'"055 

Studenf^OS; 
Student^O?; 
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MODIFYING THE PROCESS ENVIRONMENT 



PROJECT ADMINISTRATION 



• THE LIST OF PERSONS WHO MAY LOG IN ON A PROJECT IS CONTAINED IN A 
BINARY TABLE, THE PROJECT DEFINITION TABLE (pdt) , WHICH RESIDES IN 
THE DIRECTORY >sc1>pdt 

Q ONE pdt SEGMENT EXISTS FOR EACH PROJECT 

11 ONE pdt ENTRY EXISTS FOR EACH USER, SPECIFYING THE USER'S ATTRIBUTES 
AND RESOURCE LIMITS ON THE PARTICULAR PROJECT 



0 USING THE cv pmf COMMAND, A PROJECT ADMINISTRATOR CREATES A 
TEMPORARY pdt" FROM A SEGMENT KNOWN AS THE PROJECT MASTER FILE 
(pmf), WHICH IS USUALLY UNDER THE PROJECT DIRECTORY 



1 THE TEMPORARY pdt IS INSTALLED IN THE SYSTEM DIRECTORY BY THE 
PROJECT ADMINISTRATOR USING THE install COMMAND 



D AT LOGIN TIME, act ctl USES THE APPROPRIATE pdt TO DETERMINE 
WHICH OPTIONS AND RiSOUlCES ARE AVAILABLE TO A USER 



9 SEE MAM PROJECT ADMINISTRATOR (Order No. AK51) FOR COMPLETE DETAILS 
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MODIFYING THE PROCESS EHVIRONMEHT 
PROJECT ADMINISTRATIOH 

• SOME OF THE ATTRIBUTE INFORMATION MAINTAINED FOR EACH USER IN THE 
PDT IS GIVEN BELOW: 

S homedir - ABSOLUTE PATHNAME OF USER«S HOME DIRECTORY 

B initproc - NAME OF THE USER'S PROCESS OVERSEER PROCEDURE 

D attributes: 

I nobump - USER NOT SUBJECT TO PREEMPTION 

0 dialok - USER MAY USE THE DIAL FACILITY 

B multip - USER MAY LOG IN MORE THAN ONE INTERACTIVE PROCESS 

B vinitproc - USER MAY SPECIFY PROCESS OVERSEER AT LOGIN 

B vhomedir - USER MAY SPECIFY HOME DIRECTORY AT LOGIN 

B nostartup - USER MAY ESCAPE FROM USING HIS start-up. ec 

B AND SO ON... 
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MODIFYING THE PROCESS ENVIRONMENT 



CLOSED SUBSYSTEMS 



• A CLOSED SUBSYSTEM IS A SUBSYSTEM IN WHICH THE Multics SYSTEM IS 
NOT DIRECTLY AVAILABLE - RATHER, THOSE PROGRAMS IMPLEMENTING THE 
CLOSED ENVIRONMENT TAKE FULL CONTROL OVER A PROCESS 



• THE SYSTEM-SUPPLIED OVERSEER 'accounts overseer * IMPLEMENTS A CLOSED 
SUBSYSTEM " "* 

B accounts overseer HANDLES ALL INPUT FROM THE TERMINAL (I.E., IT 
IS IT»Sl)WN LISTgliER), AND IT SEVERELY RESTRICTS THE USER TO A 
SMALL SET OF COMMANDS 

B ITMAKES USE OF AN exec com SEGMENT, '>tools>master .eC TO IMPLEMENT 
SPECIAL FUNCTIONS TOR THE "REGISTRATION AND ACCOUNTING 
ADMINISTRATOR" WHO WILL BE OPERATING UNDER THIS" ENVIRONMENT 



THE SYSTEM-SUPPLIED 'fst process overseer » ALSO IMPLEMENTS A CLOSED 
SUBSYSTEM, A "TIME-SHARITIG FORTIfllN" SYSTER 



THE SYSTEM SUPPLIED OVERSEER 'project start up • MAY BE USED TO 
IMPLEMENT A"^ CLOSED SUBSYSTEM " " 



B project directory> project start up.ec ALWAYS EXECUTED BEFORE 
start_up.ec (WITH QUITS DTSABLE15) 
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MODIFYING THE PROCESS ENVIRONMENT 
LIMITED SUBSYSTEMS 

• IN A LIMITED SUBSYSTEM, THE USER IS LIMITED TO A SET OF COMMANDS 
CONTAINED IN A "COMMAND LIST" SEGMENT 



• THREE MEANS OF UTILIZING THE "LIMITED SERVICE SUBSYSTEM"; 



Q IF init^proc = lss_login_responder^$lss_login_responder 



B LIST OF COMMANDS ARE CONTAINED IN >sss>lss command list 



Q command_processor_ WILL CHECK EVERY COMMAND ENTERED BY THE 
USER AGAINST THIS LIST - ONLY IF IT IS ON LIST WILL IT BE 
EXECUTED 



B IN ADDITION, A CPU USAGE GOVERNOR WILL BE ENABLED, LIMITING 
THE PROCESS TO » ratio' CPU SECONDS PER 'interval' REAL SECONDS 

8 NOTE: IF >sss>lss_command list NOT FOUND AT LOGIN TIME, 
MESSAGE RELAYED IS: 

"The system is currently unavailable". 
(A logout -hold IS DONE) 



Q lss_login_responder_$limited_command_system_ 



Q SIMILAR TO ABOVE, BUT Iss command list IS SEARCHED FOR IN 
USER'S PROJECT DIRECTORY ^ - - 
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MODIFYING THE PROCESS ENVIRONMENT 



LIMITED SUBSYSTEMS 



fl THE COMMAND, enter_lss 

B USER SPECIFIES SEGMENT CONTAINING THE "COMMAND LIST" 

Q CONSIDER IF enter_lss COMMAND APPEARS IN projeet_start_up,ec 



COMMAND TABLES ARE CREATED USING THE 'make commands* COMMAND 



Q make commands ACCEPTS THE NAME OF AN ASCII SEGMENT WITH THE SUFFIX 
OF '"ct* , AND PRODUCES A COMMAND TABLE SEGMENT (THE ENTRYNAME 
WITHOUT THE 'ct* SUFFIX) 



1 ASCII COMMAND LIST CONTAINS THREE TYPES OF STATEMENTS: 



Q ratio: R; 



SPECIFIES THE NUMBER OF CPU SECONDS MAXIMUM ALLOWED FOR 
THE PROCESS DURING THE SPECIFIED INTERVAL 



S interval: N; 

B SPECIFIES THE NUMBER OF REAL-TIME SECONDS WITHIN WHICH THE 
PROCESS IS LIMITED TO 'R* CPU SECONDS 

fl (command^list) ; pathname; 
command^name: pathname; 

Q SPECIFIES THAT THE COMMANDS IN THE (BLANK DELIMITED) 
command_list OR THE COMMAND SPECIFIED BY command name ARE 
ALLOWED, AND THAT THEY SHOULD CAUSE THE PROCEDURE SPECIFIED 
BY PATHNAME TO BE INVOKED WHEN THEY ARE ENTERED AS COMMANDS 
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MODIFYING THE PROCESS ENVIRONMENT 



LIMITED SUBSYSTEMS 



• A COMMAND LIST EXAMPLE 



/* set ratio and interval length */ 



ratio: 
interval: 



^5; 
120; 



/* define commands */ 

(addname an): ; 

calc: ; 

(delete dl): | 

(deletename dn) : ; 

(list Is): - >udd>MED>nd>list; 

logout: 5 • 

(print pr): j 

(program^interrupt pi): ; 

(rename rn) : ; 

(start sr): ; 

edit: >sss>qedx; 
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MODIFYING THE PROCESS ENVIRONMENT 



LIMITED SUBSYSTEMS 



r 19S39 0,116 2 

!pr XXX .ct 1 

logout: >sss>logout; 

pwd: >sss>pwd; 

Is: >sss>ls; 

new^proc: >sss>new_proc5 

probe: >sss> probe; 

r 19:39 0.104 3 

!make commands xxx 
r I9T43 0.248 14 

!ls -first 1 

Segments s 72, Lengths s 80. 

re 1 xxx 

r 19:43 0.216 13 

!enter_lss xxx 
r 19:44 0.065 0 

! who 

who is not a legal command 
r 19:44 0.058 0 

QUIT 

r 19:44 0.118 4 level 2 
{who 

who is not a legal command 
r 19:44 0.035 2 level 2 

!pr xxx.ct 

pr is not a legal command 
r 19:44 0.033 0 level 2 

! logout 

NDibble MED logged ;out 02/26/81 1459.8 mst Thu 

CPU usage 7 sec, memory usage 23 .0 units, cost $0.48. 

hangup 



Not To Be Reproduced 



13- 



1? 



F15D 



MODIFYING THE PROCESS ENVIRONMENT 
NEW SUBSYSTEMS 



• IN THE MOST EXTREME CASE, A DESIGNER MAY IMPLEMENT HIS/HER OWN 
PROCESS ENVIRONMENT BY REPLACING THE STANDARD PROCESS OVERSEER WITH 
HIS/HER OWN PROCESS OVERSEER 



fl THE DESIGNER IS WARNED TO BE SURE TO PERFORM THE CRITICAL FUNCTIONS 
WHICH ARE NORMALLY PERFORMED BY STANDARD OVERSEERS, BUT BEYOND 
THESE RESTRICTIONS, THE DESIGNER IS FREE TO IMPLEMENT ANY 
ENVIRONMENT DESIRED 



'process overseer ,pl1» IS A GOOD REFERENCE FOR THE DESIGNER 
ATTEMPTllG TO CRElTE A NEW ONE (SEE APPENDIX B) 



YOU ARE NOW READY FOR WORKSHOP 
#7 
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TOPIC XIV 
Dialing Terminals to a Process 



Page 

Overview • • • • • • • •••••••••••••• 14-1 

Implementation of the Dial Facility • • 14-2 

dial_manager_ ••••••••••••• 14-3 

Dialing Terminals to a Process ••••••• 14-4 

Subroutines* . • • 14-5 

The 'dial* Command 14-7 

An Example 14-8 

Dialing Out to a Terminal. 14-13 

dial manager Entry Points •••• 14-14 



14-i 
t 



F15D 



OVERVIEW 



• NORMALLY THERE IS A ONE-TO-ONE CORRESPONDENCE BETWEEN AN INTERACTIVE 
PROCESS AND A TERMINAL DEVICE 



• HOWEVER, Mul tics PROVIDES THE 'dial' FACILITY WHICH ENABLES A PROCESS 
TO CONTROL MORE THAN ONE TERMINAL DEVICE 



• THE DIAL FACILITY IS PART OF THE ANSWERING SERVICE 

• THE ANSWERING SERVICE IS RESPONSIBLE FOR LISTENING TO THE COMMUNICATION 
LINES ATTACHED TO THE FRONT-END PROCESSOR (FNP) 

• A PROCESS HAVING THE »dialok» ATTRIBUTE (ASSIGNABLE BY THE SYSTEM 
AND PROJECT ADMINISTRATORS) MAY USE THE DIAL FACILITY 

Q ACCEPT DIALED TERMINALS (REQUIRES NO SPECIAL HARDWARE) 

Q DIAL OUT TO TERMINALS (REQUIRES ACCESS TO AUTO-CALL CHANNEL) 
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IMPLEMENTATION OF THE DIAL FACILITY 



• ipc ESTABLISHES THE EVENT CHANNEL REQUIRED FOR COMMUNICATION BETWEEN 
THE^USER PROCESS AND THE ANSWERING SERVICE 



• dial manager INTERFACES TO THE ANSWERING SERVICE'S DIAL FACILITY 



• convert dial message^ INTERPRETS THE SPECIAL IPC MESSAGE SENT BY 
THE ANSWERING SERVICE TO A USER PROCESS 



• THE 'dial' PRE-ACCESS COMMAND IS USED BY A TERMINAL OPERATOR ATTEMPTING 
TO DIAL IN TO AN EXISTING PROCESS (AG92) 



Not To Ba Reproduced 



F15D 



IMPLEMENTATION OF THE DIAL FACILITY 
dial manager 



A POINTER TO AN ARGUMENT STRUCTURE IS PASSED IN ALL CALLS TO 
<iial_manager_, AND THE MEANING OF THE STRUCTURE MEMBERS VARIES WITH 
EACH ENTRY POINT 

del 1 dial^manager arg based aligned, 

2 version *" fixed bin /« MUST BE SET TO 1 */ 
2 dial qualifier char(22), 

2 diai;3ehannel fixed bin(71), /* EVENT-WAIT CHANNEL »/ 
2 ehamiel^name char (32); 



8 dial_qualifier 

Q WILL BE A 'dial id' TO BE SUPPLIED WHEN THE dial COMMAND IS 
TYPED (IF WE'RE ACCEPTING DIALS) 

B OR WILL BE A PHONE NUMBER (IF WE'RE DIALING OUT) 



0 dial_channel 

- 8 AN EVENT-WAIT CHANNEL_ID RETURNED BY ipc_$create_ev_chn 

Q MUST BE THE SAME FOR ALL CALLS TO dial_manager_ IN THIS PROCESS 

9 channel^^naae 

8 IDENTIFIES A LINE ADAPTER AND PORT NUMBER ON THE FRONT END 
PROCESSOR 

8 SEE APPENDIX C 
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DIALING TERMINALS TO A PROCESS 



• STEPS INVOLVED IN DIALING TERMINALS TO A PROCESS 

Q PROCESS DECLARES AN EVENT-WAIT CHANNEL TO BE USED BY THE ANSWERING 
SERVICE TO NOTIFY THE PROCESS OF CRITICAL EVENTS (SUCH AS SOMEONE 
DIALING IN TO THE PROCESS, SOMEONE HANGING UP, AND SO ON) 

Q PROCESS REQUESTS THAT THE ANSWERING SERVICE NOW ALLOW DIALS FOR 
THE PROCESS, PASSING THE EVENT-WAIT CHANNEL ID AND A "DIAL 
QUALIFIER" 

Q PROCESS MAY NOW CONVERT WAIT-CHANNEL TO CALL CHANNEL, IF DESIRED 
0 TERMINALS ARE DIALED INTO THE PROCESS USING THE «dial* COMMAND 

Q UPON NOTIFICATION FROM THE ANSWERING SERVICE THAT A TERMINAL HAS 
DIALED-IN, PROCESS MUST INTERPRET THE IPC MESSAGE PASSED, WHICH 
CONTAINS 

Q CHANNEL-NAME (DEVICE ID) OF THE TERMINAL DIALED-IN 

Q FLAGS INDICATING WHAT TOOK PLACE ON THE COMLINE (DIALUP, HANGUP) 

ff PROCESS NOW ATTACHES THAT DEVICE AND COMMENCES TO DO LOGICAL I/O 
TO THAT TERMINAL 
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DIALING TERMINALS TO A PROCESS 
SUBROUTINES 



• dial_Bianager_$allow_dials 



B REQUESTS THAT THE ANSWERING SERVICE ALLOW TERMINALS TO DIAL TO 
THE CALLING jPROCESS 

Q THE CALLER SETS »dial qualifier* IN THE dial manager_arg 
STRUCTURE TO AN ALPHANUITERIC STRING FROM 1 TO 22 CHARACTERS 

B THE CALLER SETS dial manager arg.dial channel TO THE EVENT-WAIT 
CHANNEL ID ESTABLISHED FOR'COMMUNIClTING WITH THE ANSWERING 
SERVICE"" (NOTE THAT FOLLOWING A CALL TO 
dial manager $allow dials, THE CALLER MAY CHANGE THE EVENT-WAIT 
CHANllEL INTCAN EVETIT-CALL CHANNEL IF DESIRED) 



• d ial_manager_$r eg ister ed_server 

B SIMILAR TO dial_manager_$allow_dials 



B PERMITS TERMINALS TO DIAL IN WITHOUT FURNISHING Personid .Projectid 
AS dial COMMAND ARGUMENT ' 



B dial_qualifier MUST BE REGISTERED BY SYSTEM ADMINISTRATOR 
B CALLER MUST HAVE rw ON >sc1>rep>dial.<dial_qualif ier> .acs 
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DIALING TERMINALS TO A PROCESS 



SUBROUTINES 



d ial_manager_$ shuto f f_d ial s 



Q INFORMS THE ANSWERING SERVICE THAT THE PROCESS WISHES TO PREVENT 
FURTHER DIAL CONNECTIONS, AND THAT EXISTING CONNECTIONS SHOULD 
BE TERMINATED 



Q ACCEPTS SAME INFORMATION AS dial_manager_$allow_dials 



0 IMPORTANT RESTRICTION; dial channel MUST BE AN EVENT-WAIT; CALLER 
MAY THEREFORE HAVE TO CALL £pc_$decl_ev_wait_chn FIRST 



convert_dial_niessage_$returnj_io_module 



Q SHOULD BE INVOKED BY A PROCESS WHEN IT HAS RECEIVED A WAKEUP 
FROM THE ANSWERING SERVICE 



Q REQUIRES THE IPC e v en t_info .message AS INPUT AND RETURNS: 

5 THE DEVICE-ID (CHANNEL NAME) OF THE COMMUNICATIONS LINE THAT 
HAS DIALED-UP OR HUNG-UP 

I A STRUCTURE INDICATING WHETHER THE TERMINAL IN QUESTION HAS 
DIALED-UP, OR HUNG-UP 



Not To Be Reproduced 



14-6 



F15D 



DIALING TERMINALS TO A PROCESS 



THE 'DIAL* COMMAND 



• THE »dial» COMMAND; 

Q IS TYPED IN LIEU OF THE login COMMAND 

Q IS A REQUEST TO THE ANSWERING SERVICE TO CONNECT THE TERMINAL TO 
AN EXISTING PROCESS AND TO NOTIFY THAT PROCESS OF THE CONNECTION 

fl USAGE; 

dial dial_id {Person_id •Project_id} 



THE USER MUST SPECIFY THE 'dial id» THAT WAS PASSED TO THE ANSWERING 
SERVICE BY THE PROCESS ACCEPTrNG DIALS 



Q THE USER MUST ALSO SPECIFY THE 'Person id .Project id* OF THE 
EXISTING PROCESS, UNLESS dial manager f registered^server WAS 
ORIGINALLY USED TO ALLOW DIALS - - 
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DIALING TERMINALS TO A PROCESS 



AN EXAMPLE 



SET_UP_DIAL: proc; 

del ipc_$create_ev_chn entry (fixed bin (71), fixed bin (35)), 
ipc_$delete_ev_chn entry (fixed bin (71), fixed bin (35)), 
ipc~$decl ev call chn entry (fixed bin (71), entry, 
ptr, fixe^ bin, fixed bin (35)), 

dial_manager_$allow^dials entry (ptr, fixed bin (35)), 
(ioa 7 com err , ioa""$ioa switch) entry options (variable); 
del code fix el bin (35)7 

ME char (12) varying init ("SET_UP_DIAL") | 
del 1 dial manager arg aligned static, ~~ 
2 versTon fixe^ bin init (1), 
2 dial qualifier char (22) init ("astra"), 
2 dial_channel fixed bin (71), 
2 channel_name char (32) | 

call ioa_ ("Begin '"a", ME)j 

call ipG^$create^ev_^chn (dial_manager^argodial_^channel, 
code) * 

if code "s'o then call ERROR (1); 

call dial manager_$allow_dials (addr (dial_manager_arg) , 
codeT* 

if code "='o then call ERROR (2)j 

call ipc_$decl_ev call chn (dial manager arg. dial channel, 

-DIAL HANDLER, nulK ) , 0, coHe) ; 
if code 0 then call ERROR (3); 

call ioa_ ("Now listening for dials s *a", ME); 
return; 
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DIALING TERMINALS TO A PROCESS 



AN EXAMPLE 



DIAL_HANDLER: entry (info_ptr); 

del info_ptr ptr parameter; 

del 1 event^info based (info^ptr), 

2 channel^id fixed bin (71), 

2 message fixed bin (71), 

2 sender bit (36), 

2 origin, 

3 dev^signal bit (18) unal, 
3 ring bit (18) unal, 

2 data_ptr ptr; 

del eonvert_dial_message_$return_io_module entry (fixed bin(71), 
ehar(»)7 ehar(*), fixed bin, 1 aligned, 2 bit(1) unal, 

2 bitd) unal, 2 bit(1) unal, 2 bit(33) unal, fixed bin(35)); 

del whieh^channel ehar (32); 

del iocbjptr ptr; 

del ipc_$cutoff entry (fixed bin(71), fixed bin(35)); 
del ipc^reconnect entry (fixed bin(71), fixed bin(35)); 

del iox_$attaeh_name en-tcy._(jchar.C*)., .ptr , char(*), ptr, fixed bin(35)); 
del iox_$open entry (ptr, fixed bin, bit(1) aligned, fixed bin(35)); 
del iox_$close entry (ptr, fixed bin(35)); 
del iox~$detach ioeb entry (ptr, fixed bin(35)); 
del iox^ieontroT entry (ptr, char(*), ptr, fixed bin(35)); 
del iox~$get line entry (ptr, ptr, fixed bin(21), fixed bin(21), 

fixed bin(35))| 

del buffer char(80); — 

del aetually read ehar(n read) based ( addr( buffer) ) ; 
del n^read fixed bin (2lT; 

ME s "DIAL_HANDLER" ; 

eall ipc $cutoff (dial manager arg.dial channel, code); 
if code "^s 0 then call~ERROR (1); 

call convert_dial_message_$return_io_module ( 

event info.message, which channel, 0, *<0**b, code); 
if code "=~0 then call ERROR (^); 
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DIALING TERMINALS TO A PROCESS 



AN EXAMPLE 



call iox_$attach_name ("switch", ioeb^ptr, 

*" "t^y^ "I Iwhich'^channel, nullO ,code) ; 

if code 0 then call ERROR (6); 

call iox $open (iocb ptr, 3» "O^b, code); 
if code """s 0 then call ERROR (7); 

call ioa_$ioa switch (iocb^ptr, "Welcome to my world. 
Please type a line and T will echo it back."); 

call iox_$get_line (iocb_ptr, addr(buffer) , 80, n^read, code); 
call ioa_$ioa_switch (iocb^ptr, ""^a", actually^read) ; 
call ioa_$ioa~switch (iocb^ptr, "Good bye"); " 

call iox $control (iocb ptr, "hangup", nullO, code); 
if code ''r 0 then call IRROR (8); 

call iox $close (iocb ptr, code); 
if code *s 0 then call ERROR (9); 

call iox $detach iocb (iocb ptr, code); 
if code "^s 0 then call ERROTf (10); 
return; 
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DIALING TERMINALS TO A PROCESS 



AN EXAMPLE 



ERROR: proc (error^number) ; 

/* Internal"'proc to report errors •/ 
del error number; 

call com err_ (code, ME, "Check call of ERROR", 

y^ "^ error 
goto FINISH; 
end ERROR; 

SHUTOFF: entry; 

del dial manager $shutoff_dials entry (ptr, fixed bin (35)); 

del ipc_fdecl_ev^wait_chn entry (fixed bin (71), fixed bin (35)); 

V ME s "SHUTOFF"; 

call ipe $decl ev wait chn (dial manager arg.dial channel, code); 
if code '^r 0 tlenTcall ERROR (1lT; 

call dial_manager_$shutoff_dials (addr (dial manager arg) , code); 
if code ^= 0 then call ERROR (12); 

call ipe $delete ev chn (dial manager arg. dial channel, code); 

if code "^s 0 then call ERROR Tl 3); " 
return; 

FINISH: 

end SET UP DIAL; 
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DIALING TERMINALS TO A PROCESS 
AN EXAMPLE 

• THE PRECEDING EXAMPLE IS VERY SIMPLE AND THEREFORE HAS LITTLE 
PRACTICAL APPLICATION 

Q OBVIOUS PROBLEMS: 

1. IT ONLY HANDLES ONE DIALED IN TERMINAL AT A TIME 

2. IT CANNOT HANDLE THE SITUATION IN WHICH THE DIALED IN 
TERMINAL SIMPLY "HANGS UP" 

3. IT CANNOT HANDLE THE SITUATION IN WHICH THE DIALED IN 
TERMINAL SIGNALS QUIT (USER HITS BREAK KEY) 

4. THE MASTER PROCESS GOES BLOCKED WHILE WAITING FOR INPUT 
FROM THE "SLAVE" TERMINAL 

• A 10 PAGE EXAMPLE APPEARS IN APPENDIX G 

D THIS EXAMPLE SOLVES ALL OF THE ABOVE PROBLEMS _ 

D IT PROVIDES A STARTING POINT FOR A REALISTIC DIAL IN APPLICATION 
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DIALING OUT TO A TERMINAL 

• STEPS INVOLVED IN DIALING OUT 

fl ESTABLISH EVENT-WAIT CHANNEL 

S REQUEST ANSWERING SERVICE TO DIAL A SPECIFIED PHONE NUMBER 

Q ONE CAN CHANGE EVENT-WAIT TO EVENT-CALL CHANNEL AT THIS TIME 

B AFTER NOTIFICATION OF SUCCESSFUL DIAL-OUT, USER ATTACHES DEVICE 
AND DOES LOGICAL I/O 

• A PRIVILEGED PROCESS (HAVING «rw» ON THE APPROPRIATE ACCESS CONTROL 
SEGMENT) MAY USE THE DIAL FACILITY TO DIAL OUT TO A TERMINAL 
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DIALING OUT TO A TERMINAL 
DIAL MANAGER ENTRY POINTS 



• ENTRY POINTS USED TO DIAL OUT: 



Q dial manager $dial out 



S REQUESTS THAT AN AUTO-CALL CHANNEL BE DIALED TO A GIVEN 

TELEPHONE NUMBER, AND, IF THE CHANNEL IS SUCCESSFULLY DIALED, 
THAT THE CHANNEL BE ASSIGNED TO THE REQUESTING PROCESS 

D THE CALLER SETS dial_manager_arg.dial_qualif ier TO THE 
TELEPHONE NUMBER TO BE DIALED (NONNUMERIC CHARACTERS IN 
THE NUMBER ARE IGNORED, SO THE NUMBER MAY BE SPECIFIED AS, 
FOR INSTANCE, "301/977-4292") 

Q dial manager arg.dial channel IS SET TO THE EVENT-WAIT 
CHANNEL CREATED TO ALLOW THE ANSWERING SERVICE TO 
COMMUNICATE WITH THE PROCESS 

0 THE CALLER MAY SET dial_manager arg.channel_jiame TO A 
SPECIFIC CHANNEL-NAME OF AN AUT^-CALL CHANNEL - IF THE 
CALLER ASSIGNS THE NULL STRING TO THIS ARGUMENT, THE 
ANSWERING SERVICE WILL ATTEMPT TO ASSIGN ANY AVAILABLE 
AUTO-CALL CHANNEL AND CALLER MUST USE 

convert dial message $return io module TO DETERMINE WHAT 
IT IS " - 



§ dial manager $terminate dial out 



e REQUESTS THAT THE ANSWERING SERVICE HANG UP AN AUTO-CALL LINE 
AND UNASSIGN IT FROM THE REQUESTING PROCESS 

Q ACCEPTS THE SAME INFO AS dial_manager_$dial_out 

0 HOWEVER, THE * channel name* ARGUMENT MUST BE SUPPLIED WITH 
THE NAME OF THE AUTO-TTALL CHANNEL WHICH WAS USED FOR THE 
DIAL OUT 
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TOPIC XV 
Message Segment Facility 
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WHAT IS IT? 

• A SERIES OF PRIMITIVES, SUBROUTINES AND COMMANDS 

• DESIGNED TO 

fl MANIPULATE RING 1 MESSAGE SEGMENTS 

Q FACILITATE PROTECTED AND ORDERED MESSAGE EXCHANGE BETWEEN AND 
WITHIN PROCESSES 

Q SALVAGE MESSAGE SEGMENTS CONTAINING "DAMAGED" MESSAGES 

Q MINIMIZE WRITE/UPDATE WINDOW TIME 

e SUPPORT CHANGE-ABLE MESSAGE SIZE 
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APPLICATIONS 



• I/O AND ABSENTEE DAEMON QUEUES 



• SUPPORT FOR MAIL AND SEND_MESSAGE FACILITIES 



• USER-DESIGNED APPLICATIONS REQUIRING THE SPECIAL CAPABILITIES OF 
MESSAGE SEGMENTS 
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THE MESSAGE SEGMENT 

• PROPERTIES 

e ACCESSIBLE ONLY IN RING 1 (AND RING 0) 

Q HAS A SUFFIX 

B 'IDS* FOR QUEUE MESSAGE SEGMENTS 
D <mbx* FOR MAILBOXES 

I MUST BE A SINGLE-SEGMENT FILE 

Q HAS AN EXTENDED ACCESS CONTROL LIST 
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THE MESSAGE SEGMENT 



• STRUCTURE 

e HEADER 

0 LOCK WORD 

B 36-BIT MESSAGE SEGMENT ID BIT PATTERN 

8 OFFSET TO FIRST MESSAGE 

S OFFSET TO LAST MESSAGE 

D MESSAGE COUNT 

B SWITCHES 

1 MSEG INCONSISTENT 

a MSEG HAS BEEN SALVAGED 

0 ALLOCATION BIT STRING SAYS WHICH BLOCKS ARE USED- 

B LENGTH (ALLOCATION BIT STRING) 

B MESSAGE BLOCK SIZE 

B UNUSED BLOCK COUNT 

B ...AND OTHER INFO 
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THE MESSAGE SEGMENT 

Q DOUBLY-THREADED LIST OF MESSAGES 

Q EACH MESSAGE IS COMPRISED OF 1 OR MORE FIXED-LENGTH BLOCKS 
B EACH BLOCK HAS A HEADER CONTAINING 

S OFFSET TO NEXT BLOCK IN MESSAGE (OR ZERO) 

fl A "FIRST-BLOCK" SWITCH 

Q NUMBER OF MESSAGE BITS IN BLOCK 
B FIRST BLOCK IN MESSAGE ALSO HAS A TRAILER 

B EACH MESSAGE TRAILER CONTAINS 
B MESSAGE BIT SIZE 
B TIME MESSAGE WAS SENT 
B VALIDATION LEVEL OF SENDER 
B Personid.Projectid OF SENDER 
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LAYERED DESIGN 



• TWO HIGH-LEVEL SUBROUTINE INTERFACES ALREADY EXIST FOR MANIPULATION 
OF MESSAGE SEGMENTS 



Q raessage_segment_ FOR QUEUE MESSAGE SEGMENTS 
B mailbox FOR MAILBOXES 



TWO CORRESPONDING COMMAND-SETS EXIST AS WELL 

Q FOR QUEUE MSEGS WE HAVE: 
ms_add_name, msan 
ms^create, mscr 
ms^delete, msdl 
ms_delete_acl , msda 
ms_delete_name , msdn 
ms_^list_aci , asla 
ms_rename, msrn 
ms set acl, mssa 
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LAYERED DESIGN 



Q FOR MAILBOXES WE HAVE: 
mbx_add_name , niban 
mbx^create, mbcr 
mbx_delete, mbdl 
nbx^delete^acl, mbda 
mbx_delete_name, mbdn 
mbx_llst_acl, mbla 
nbx^rename, mbrn, 
mbx_set_acl, nbsa 

# message_segment_ AND mailbox^ ARE GATES INTO THE ADMINISTRATIVE RING 

B WHICH TRANSFER CONTROL TO THE PROCEDURES queue mseg AND mbx mseg , 
RESPECTIVELY - - - - 



Q queue msg AND mbx mseg IN TURN CALL MODULES IN THE PRIMITIVE 

MESSAGE SEGMENT FA(JlLITf" 
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LAYERED DESIGN 
PRIMITIVE MESSAGE SEGMENT FACILITY 

• THE PRIMITIVE MESSAGE FACILITY IS COMPRISED OF MODULES WHICH 

ff CREATE AND DELETE MSEGS 

I MANIPULATE EXTENDED ACCESS 

8 LOCK AND UNLOCK MSEGS 

8 MANIPULATE MESSAGES 

8 MANIPULATE • OWN • MESSAGES 

1 SALVAGE MSEGS 

8 CONVERT MSEGS FROM A PREVIOUS FORMAT 
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EXTENDED ACCESS 

BOTH QUEUE AND MAILBOX MSEGS EMPLOY THESE ATTRIBUTES: 
3 a 

ALLOWS USER TO ADD A MESSAGE 

fl d 

ALLOWS USER TO DELETE ANY MESSAGE 

0 r 

allows" user to READ ANY MESSAGE 

Q o 

ALLOWS USER TO READ/DELETE *OWN« MESSAGES 



Q s 



ALLOWS USER TO DETERMINE WHETHER MSEG HAS BEEN SALVAGED AND 
MESSAGE COUNT 



IN ADDITION, MAILBOX MESSAGE SEGMENTS EMPLOYS 



ALLOWS USER TO SEND NORMAL WAKEUP WHEN ADDING MESSAGE 
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MESSAGE SEGMENT SUBROUTINE SUMMARY 



• CREATING AND DELETING QUEUE MESSAGE SEGMENTS 
inessage_seginent_$create 
message_segment_$delete 



MANIPULATING EXTENDED ACCESS 

inessage_segment_$ms_acl_add 
message_segment_$ms_acl_delete 
message_segment_$ms_acl_list 
message_segment^$ms_acl_replaee 



• RENAMING 



message segment $chname file 



OPENING AND CLOSING 

message_segment_$open 
message_segfflent_$close 
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MESSAGE SEGMENT SUBROUTINE SUMMARY 



• OBTAINING HEADER STATUS INFO 

message_S€gment_^$check salv_^bit_index 
message_segment_$check3salv_bit_file 

message segment_$get_message_count_index 
message]2segment_$get_message_count_f lie 



• OBTAINING EFFECTIVE ACCESS 

message_segment_$get_inode_index 
me s sag e^segmen t_$ ge t^^mod e~f i 1 e 



• MANIPULATING MESSAGES 

message_segment_$add_index 
message_segment_$add_f ile 

message segment $delete_index 
message]]2segment~$delete_flle 

message_segment_$read_index 
message_segment~$read~file 

Bsessage_seg5!ent_$incremental_read_index 
message_segment_$incremental_read_file 

message_segment $update message_lndex 
message_segment3$update]2message_flle 



• MANIPULATING 'OWN* MESSAGES 

message_segment_$own_read_index 
message]2segment~$own^read^file 

message_segment_$own_ihcremental_read_^index 
message_segment_$own]^incremental_read3file 



Not To Be Reproduced 



15-11 



MESSAGE SEGMENT FACILITY ILLUSTRATIVE EXAMPLE 



trans: proc; /♦•j4.4,4l •/ 

trans_add: proc; 

end; 

trans^detetes proc; 
end; 

trens^read: proc; 

end: 

trans_ccxjnt: proc; 
end; 

trans.summary: proc; 



end; 



endtrms: 



CALLS 
> 



nwssage_segnient_: proc; /• 1 1,1,5} •/ 
open: entry ~. ; 
cbse: entry .» ; 
get^message.count: entry ; 
add.index; wrtry .„ ; 
delete.index: entry .»; 
read^indoc: entry ; 
incremental.read_index: entry .« ; 
owm_read_index: entry ... ; 
own_incrementai_read_ index: entry ... 

end niessage_segment_; 



MANIPUUTES 



>ijdd>F15d>trans.cm 



THE 
MESSAGE 
SEGMENT 



COMMAND PROCEDURE 



MESSAGE SEGMENT FACILITY 
ILLUSTRATIVE EXAMPLE 
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TOPIC XVI 
Program Library Management 
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INTRODUCTION 



• LARGE AND COMPLEX SUBSYSTEMS REQUIRE GOOD PROGRAM LIBRARY MANAGEMENT 
TECHNIQUES 



Q THE DESIGNER MUST BE CONCERNED WITH PROPERLY ORGANIZING THE SOURCE 
PROGRAMS, OBJECT PROGRAMS, BOUND SEGMENTS, LISTINGS, AND SO ON 



Q THE DESIGNER COULD DEVELOP HIS OWN LIBRARY CONVENTIONS AND TOOLS, 
BUT: 



CONVENTIONS AND SYSTEM-PROVIDED TOOLS EXIST FOR 



Q ORGANIZING SOURCE, OBJECT, EXECUTABLE, AND DOCUMENTATION LIBRARIES 
IN A CONVENIENT MANNER 



D MANIPULATING THE COMPONENTS OF A USER MAINTAINED LIBRARY IN A 
CONTROLLED MANNER 



H CONTROLLING THE INSTALLATION AND DE-INSTALLATION OF. SUBSYSTEM 
MODULES IN AN ORDERLY MANNER 
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INTRODUCTION 
ORGANIZATION OF PROGRAM LIBRARIES 

A USER«S PROGRAM LIBRARY FOR A GIVEN SUBSYSTEM IS GENERALLY ORGANIZED 
AS A DIRECTORY SUBTREE 

Q A DIRECTORY SEGMENT, NAMED FOR THE LIBRARY ITSELF, SERVES AS THE 
ROOT OF THE SUBTREE 

e EXECUTABLE PROGRAMS, WHETHER STAND-ALONE OR BOUND, RESIDE UNDER 
THE LIBRARY ROOT DIRECTORY 

Q SUBDIRECTORIES UNDER THIS ROOT CONTAIN: 

B SOURCE PROGRAMS., EITHER INDIVIDUALLY OR IN ARCHIVE SEGMENTS 

Q OBJECT PROGRAMS, EITHER INDIVIDUALLY, OR (MORE GENERALLY) IN 
ARCHIVE SEGMENTS 

B LISTINGS AND/OR BIND MAPS 

fl INCLUDE FILES 

B HELP FILES 
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LIBRARY 



SUBTREE 



SOME 
SUBSYSTEM DIR 



6-6~ 

EXECUTABLE BOUND SEGS 




info 
INFO 



6-6 6-6 o-o 6-6 6- 



INCL SEGMENTS 



SOURCE ARCHIVES OBJECT ARCHIVES SOURCE PROGRAM INFO SEGMENTS 

LISTINGS, AND/OR 
BIND MAPS 



INTRODUCTION 
NAMING CONVENTIONS 



• THE LIBRARY COMPONENTS MENTIONED ABOVE ARE GENERALLY NAMED ACCORDING 
TO THE FOLLOWING STANDARD NAMING CONVENTIONS: 



S THE SOURCE SUBDIRECTORY IS GENERALLY GIVEN THE NAMES 

source 
s 
S 



8 THE OBJECT PROGRAM SUBDIRECTORY IS GENERALLY GIVEN THE NAMES 

object 
o 
0 



B THE LISTINGS SUBDIRECTORY IS GENERALLY GIVEN THE NAMES 

lists 
1 
L 



0 THE INCLUDE FILE SUBDIRECTORY IS GENERALLY GIVEN THE NAMES 

include 
inel 



Q THE HELP FILES SUBDIRECTORY IS GENERALLY GIVEN THE NAMES 

info 
INFO 
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INTRODUCTION 



NAMING CONVENTIONS 



• NAMING CONVENTIONS FOR BOUND SEGMENTS AND CORRESPONDING ARCHIVES 



Q THE BOUND SEGMENT ITSELF IS GIVEN AN ENTRYNAME "bound ???????", 
WHERE ??????? IS A NAME CHOSEN BY THE DESIGNER (E.G., 
bound_command_loop_^) 



0 THE ARCHIVE WHICH CONTAINS THE SOURCE PROGRAMS USED TO GENERATE 
THE INDIVIDUAL COMPONENTS OF THE BOUND SEGMENT IS NAMED 
"bound_???????.s. archive" (E.G., bound_command_loop_.s. archive) 



THE ARCHIVE WHICH CONTAINS THE OBJECT PROGRAMS AND WHICH WAS 
INPUT TO THE BINDER IS NAMED "bound_??????? .archive" (E.G., 



bound_command_loop_ . archive) 
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INTRODUCTION 
A TYPICAL PROGRAM LIBRARY 



Hist >udd>F15dw>Auerbach>user_library_1 -ail 
Directories s 1 • 

sma user library 1 
ulT 



llist -pn >udd>F15dw>Auerbach>ul1 -all 

Segments = 3, Lengths s 4. 

re 2 bound_cde_ 
c — — 

d 
e 

re lb 

re 1a 

Directories s 5. 

sma include 

incl 
sma info 

INFO 
sma lists 

1 

L 

sma object 
o 
0 

sma source 
s 
S 



lewd >udd>F15dw>Auerbach>ul1 
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INTRODUCTION 
A TYPICAL PROGRAM LIBRARY 



!ls -pn source -all 
Segments = 3» Lengths =3. 

r w 1 bound^cde^.s. archive 

c. pll"" 

d. pH 

e. pll 

r w 1 b.fortran 
r w 1 a.pll 

!ls -pn object -all 

Segments s 3, Lengths r 4. 

r w 2 bound_cde__^. archive 
c 
d 
e 

bound_cde_.bind 
r w 1 b 
r w l a 

!ls -pn L -all 

Segments = 6, Lengths s 6. 

r w 1 bound_cde_.list 

r w 1 a. list 

r w 1 b,list 

r w 1 c.list 

r w 1 d.list 

r w 1 e.list 
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INTRODUCTIOH 
A TYPICAL PROGRAM LIBRARY 



lis -pn INFO -all 



Segments s 6, Lengths s 6* 

r w 1 user^library^l .gi^info 

r w 1 e.inTo 

r w 1 d.info 

r w 1 e.info 

r w 1 b.info 

r w 1 a .info 



!ls -pn include -all 



Segments = 3, Lengths =3. 

r w 1 DATABASE_STRUCTURE.incl.pl1 
r w 1 REC2«incl,pl1 
r w 1 REC1.incl.pl1 



Hot To Be Reproduced 



16-8 



PROGRAM LIBRARY MANAGEMENT TOOLS 



# LIBRARY ADMINISTRATOR TOOLS EXIST TO PROPERLY UPDATE AND MANIPULATE 
LIBRARIES IN A STRICTLY CONTROLLED AND CONSISTENT MANNER 



• THE MAJOR TOOLS CAN BE CLASSIFIED AS FOLLOWS: 
fl INSTALLATION TOOLS 
Q PROGRAM LIBRARY MANIPULATION TOOLS 



Not To Be Reproduced 



16-9 



F15D 



PROGRAM LIBRARY MANAGEMENT TOOLS 



INSTALLATION TOOLS 



• THE "INSTALLATION PROBLEM" 



Q ARISES FROM ATTEMPTS TO DYNAMICALLY INSTALL A NEW OR REPLACEMENT 
VERSION OF A HEAVILY USED SUBSYSTEM MODULE (OR MODULES) 



Q THOSE USERS CURRENTLY EXECUTING THE (NOW) OBSOLETE MODULES 
MUST CONTINUE TO EXECUTE THEM UNTIL THEY HAVE COMPLETED THEIR 
SESSION - IN ADDITION, ANY USERS WHO SUBSEQUENTLY ATTEMPT TO 
EXECUTE THE MODULE SHOULD RECEIVE THE NEW, UPDATED VERSION 



Q ANY MODIFICATIONS TO THE PROGRAM LIBRARY SHOULD BE CAREFULLY 
DOCUMENTED OR LOGGED 
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PROGRAM LIBRARY MANAGEMENT TOOLS 
INSTALLATION TOOLS 

• SOLUTION TO PROBLEM: Multics INSTALLATION SYSTEM (MIS) 

8 MIS SUBROUTINES ARE 

Q RESTARTABLE ACROSS A SYSTEM OR PROCESS FAILURE (AS LONG AS 
STORAGE SYSTEM IS INTACT) 

Q REVERSIBLE, ALLOWING FOR "DE-INSTALLATION" IF TROUBLE ARISES 
MIDSTREAM ' 

B MIS FEATURES 

Q PLANNED AUTOMATIC RECOVERY (VIA DE-INSTALL ENTRY POINTS) FOR 
• ERRORS LIKE record_^quota_overflow, namedup, entry_not_found 

0 AUTOMATIC DOCUMENTATION OF AN INSTALLATION 

B A COMMAND INTERFACE: update_seg 
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PROGRAM LIBRARY MANAGEMENT TOOLS 



INSTALLATION TOOLS 



• update seg IS USED^ TO DEFINE THE CONTENTS OF A MODIFICATION, AND TO 
INSTALL OR DE-INSTALL THAT MODIFICATION IN A LIBRARY 

B A MODIFICATION IS A GROUP OF PHYSICALLY OR LOGICALLY RELATED 

SEeRlHmTaieir must be installed in a library at the same time 

IN ORDER TO MAINTAIN LIBRARY CONSISTENCY AND INTEGRITY 
e SOURCE AND OBJECT ARE PHYSICALLY RELATED 
fl OBJECT AND OBJECT ARE LOGICALLY RELATED 

fl A MODIFICATION IS INSTALLED THUSLY: 



THE INSTALLATION OF EACH SEGMENT IS DIVIDED INTO A SERIES OF 
STEPS (GETTING A UNIQUE ID, NAMES, AND ACL OF THE NEW AND OLD 
SEGMENTS, COPYING THE TARGET SEGMENT, ADDING TO AND DELETING 
FROM THE TARGET SEGMENT'S NAMES, FREEING NAMES ON THE OLD 
SEGMENT, ETC.) 



ONE STEP AT A TIME IS PERFORMED FOR ALL SEGMENTS OF THE 
MODIFICATION BEFORE MOVING ON TO THE NEXT STEP 



THE EXECUTABLE SEGMENTS ARE INSTALLED LAST, AS A GROUP, AFTER 
INSTALLING THE OTHER SEGMENTS IN THE MODIFICATION (SOTfTCI 
SEGMENTS, ARCHIVES, ETC«) 



THE INSTALLATION WINDOW CAN BE REDUCED TO LESS THAN ONE MINUTE 
PER MODIFICATION, AND IS USUALLY ABOUT FIVE SECONDS 
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PROGRAM LIBRARY MANAGEMENT TOOLS 
INSTALLATION TOOLS 

• OPERATIONS PERFORMED BY update_seg: 



S CREATING MODIFICATIONS 

initiate 
set^def aults 
print defaults 



8 DEFINING OPERATIONS TO BE PERFORMED DURING THE MODIFICATION 
add 

delete 

move 

replace 



1 LISTING THE DEFINED MODIFICATION 

print 
list 



Q INSTALLING/DE-INSTALLING THE MODIFICATION 

install 
de install 



S CLEARING THE CURRENT MODIFICATION 
clear 
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PROGRAM LIBRARY MANAGEMENT TOOLS 
INSTALLATION TOOLS 

• NONPRIVILEGED USERS OF update_seg SHOULD FIRST TYPE: 
initiate [wh hcs_^3 installation_^tools_ 

OTHERWISE ENTRY POINTS IN installation tools WILL BE CALLED BY 
update_seg AND MOST USERS HAVE NULL ACCElS TO THIS SEGMENT 
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PROGRAM LIBRARY MANAGEMENT TOOLS 



INSTALLATION TOOLS 



!list -first 3 

Segments s 74, Lengths s 62. 

r w 0 04/06/81. audit 
rew 1 test 
rew 1 test.pll 

lewd junk 

llist 

Directory empty: >user_dir_dir>MED>NDibble> junk 
lewd < 

[us print_defaults 

Global defaults 

ring brackets: 
1,5,5 

ACL: 



ius initiate example -rb 4 4 4 
!us print^defaults 

Defaults for >user_dir_dir>MED>MDibble>example.io 

ring brackets:^ 
4,4,4 

ACL: 

re *.».« 

Global defaults 

ring brackets: 
1.5,5 

ACL: 



llist -first 4 

Segments = 75, Lengths - 126. 

r w 64 example .io 

r w 0 04/06/81. audit 

rew 1 test 

rew 1 test.pll 



Hot To Be Reproduced 



16-15 



F15D 



PROGRAM LIBRARY MANAGEMENT TOOLS 



INSTALLATION TOOLS 



!us add test.pll junk>ss 
!us move test junk>ss 
!us print 

Add >user dir dir>MED>NDibble>test.pl1 

3S >user~dir3dir>MED>NDibble>junk>test.pl1 
Set ring brackets: 

Access control list: 
re 

Names: 

test.pll ' 

Move >user dir_dir>MED>NDibble>test 

to >user""dir_dir>MED>NDibble>junk>test 
Access con^rol^'list : 

rew NDibble.MED.» 
rew NDibble.*.» 
rw ^.SysDaemon.* 
Names : 
test 

Hist -first 2 

Segments s 75, Lengths s 126. 

r w 64 example .io 

r w 0 04/06/81. audit 

I us list 

Hist -first 2 

Segments s 76, Lengths s 127* 

r w 1 example.il 
r w 64 example. io 
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PROGRAM LIBRARY MANAGEMENT TOOLS 



INSTALLATION TOOLS 



! print example. 11 1 

INSTALLATION OBJECT SEGMENT >user_dir_dir>MED>NDibble>exampleao 

Listed on: 04/06/81 0728.3 mst Mon 

Created by: NDibble.MED.» 

Created with: update seg (MIS Version 1.5) 

Created on: 04/06/Hl 0727.1 mst Mon 

SUMMARY OF THE INSTALLATION: 



Add >user dir dir>MED>NDibble>test.pl1 

as >user dir~dir>MED>NDibble> junk>test.pl1 



Move >user dir dir>MED>NDibble>test 

to >user;[dir2dir>MED>NDibble>junk>test 

INSTALLATION OBJECT SEGMENT HAS NOT BEEN INSTALLED. 



A DESCRIPTION OF THE INSTALLATION FOLLOWS. 



INSTALLATION DESCRIPTION: 



Add >user dir_dir>MED>NDibble>test.pl1 

as >user_dir_dir>MED>NDibble>junk>test.pl1 
Set ring brackets: 
4,4,4 

Access control list: 

re *.».» 
Names: 

test.pll 



Move >user dir dir>MED>NDibble>test 

to >user"dir3dir>MED>NDibble>junk>test 
Access con^rol^list: 

rew NDibble.MED.* 
rew NDibble.*.* 
rw *.SysDaemon.* 
Names : 

test ' 
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PROGRAM LIBRARY MANAGEMENT TOOLS 



INSTALLATION TOOLS 



!us install 

Beginning installation of example .io 
Error: Linkage error by upd_ring task_$set|1000 
Osystem library_tools> bound mis T " 
referencing installation_tooTs_| set_ring_brackets 
Incorrect access on entry. — — — 

flist -first 5 

Segments = 76, Lengths s 127* 

r w 1 example.il 

r w 64 example. io 

r w 0 04/06/81. audit 

rew 1 test 

rew 1 test.pll 

lewd Junk 

!list 

Segmental s 2, Lengths s 2. 

r w 1 IBBBJKzgHHgZMDK 
r w 1 IBBBJKzgHHFJDLd 

!in [wh hcs_] installation_tools_ 

!us de__install 

update_seg: The lock was already locked by this process. 
Non-fatal error encountered while locking 

>user_dir_dir>HED>NDibble>example.io. 
update seg will continue performing the de^install function 
Non«special target segments deleted. ^, 
De-installation complete. 

Hist 

Directory empty: >user_dir_dir>MED>NDibble> junk 
!us install 

Beginning installation of example.io 
Installation complete. 



Not To Be Reproduced 



16-18 



PROGRAM LIBRARY MANAGEMENT TOOLS 



INSTALLATION TOOLS 



!list 

Segments = 2, Lengths = 2. 

rew 1 test 

re 1 test.pll 

lewd < 

!list -first 5 

Segments s 76, Lengths s 127*. 



r w 


1 


example.il 


r w 


64 


example .io 


r w 


0 


04/06/81 .audit 


rew 


1 


test.1 






!BBBJKzgHHgZMll 


rew 


1 


test.pll 



' !cob test»1 junk>test 

>user dir dir>MED>NDibble>test.1 : (segmental) 
03/14781 "1121.1 mst Sat PL/I 

>user dir_dir>MED>NDibble>junk>test: (segment 2) 
03/14781 1121.1 mst Sat PL/I 

The 2 segments match. 

!us list 

Idp example.il 
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• THE 'library descriptor' COMMANDS ARE A COLLECTION OF TOOLS ALLOWING 
THE SUBSYSTEM DESIGNER OR LIBRARY ADMINISTRATOR TO MANIPULATE LIBRARY 

STRUCTURES 

8 ALL REFERENCE • library_descriptors» , WHICH ARE 

Q SPECIAL SEGMENTS THAT 

0 DESCRIBE THE STRUCTURE OF LIBRARIES IN THE HIERARCHY 

B LIST THOSE LIBRARY DESCRIPTOR COMMANDS WHICH MAY BE USED 
ON THE DESCRIBED LIBRARIES 

Q NAME THE PROCEDURES WHICH "KNOW" HOW TO OPERATE ON THE 
DESCRIBED LIBRARIES 

Q CREATED IN A TWO STEP OPERATION 

0 ASCII DESCRIPTOR SOURCE SEGMENT IS TRANSLATED INTO AN aim 
SEGMENT BY library_descriptor_compiler COMMAND PROCEDURE 

B aim ASSEMBLER GENERATES BINARY LIBRARY DESCRIPTOR 

Q THE COMMANDS ARE , 

Q library_fetch, If 

Q COPIES SPECIFIED ENTRIES FROM A LIBRARY 
DEFINED BY THE "CURRENT LIBRARY DESCRIPTOR " INTO THE USER'S 
WORKING DIRECTORY 

a ACCEPTS THE STAR CONVENTION 

Q HAS SOME USEFUL OPTIONS 

B CAN TELL YOU WHERE MATCHING ENTRY WAS FOUND (-long) 

B CAN BE TOLD WHERE TO PUT FETCHED ENTRIES AND WHAT TO 
CALL THEM (-into) 
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Q CAN COPY THE ENTIRE ARCHIVE CONTAINING THE MATCHING 
ENTRIES, AS OPPOSED TO JUST SOME OF THE ARCHIVE COMPONENTS 
(-container) 

H CAN INDIVIDUALLY COPY ALL COMPONENTS OF ARCHIVES 
CONTAINING THE MATCHING ElJTHlES (-components) 

0 library^^print 

S SELECTS PRINTABLE ENTRIES FROM A LIBRARY DEFINED BY THE 
CURRENT LIBRARY DESCRIPTOR AND WRITES THEM TO A FILE SUITABLE 
FOR DPRINTING 

B DPRINT CONTAINS AN INDEX 

ii ACCEPTS THE STAR CONVENTION 

Q USEFUL OPTIONS 

Q -container 

B -components 

B CAN PRINT CUSTOMIZED PAGE FOOTINGS (-footer) AND FIRST 
PAGE HEADING (-header) 

S library^info, li ^ 

B RETURNS TO THE TERMINAL STATUS INFORMATION ABOUT SPECIFIED 
ENTRIES IN LIBRARY DEFINED BY CURRENT LIBRARY DESCRIPTOR 

B ACCEPTS THE STAR CONVENTION 

B USEFUL OPTIONS 

B -container 

B -components 
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1 library^map 

Q LIKE library info, BUT GENERATES A MAP FILE SUITABLE FOR 
DPRIMTIMG 

B USEFUL OPTIONS 

I -header 

I -footer 

Q library^cleanup, Icln 

B LISTS LIBRARY ENTRIES THAT HAVEN*T BEEN MODIFIED WITHIN 
THE SPECIFIED "GRACE" PERIOD 

8 OPTIONALLY DELETES SUCH "OLD" SEGMENTS, LINKS, AND 
MULTISEGMENT FILES 

B ACCEPTS THE STAR CONVENTION 

B library_^descriptor , Ids 

B PRINTS INFORMATION ABOUT LIBRARY DESCRIPTORS, AND CONTROLS 
USE OF LIBRARY DESCRIPTORS BY THE OTHER LIBRARY DESCRIPTOR 
COMMANDS 

B RETURNS NAME OF CURRENT LIBRARY DESCRIPTOR BEING USED 
B CHANGES CURRENT LIBRARY DESCRIPTOR 



Not To Be Reproduced 



16-22 



r i3J 



PROGRAM LIBRARY MANAGEMENT TOOLS 



LIBRARY DESCRIPTOR TOOLS 

• lib_descriptor_ SUBROUTINE 

11 CONTAINS ENTRY POINTS THAT ARE CALLED BY ABOVE COMMANDS TO ACHIEVE 
THEIR GOALS 

I REFERENCES THE LIBRARY DESCRIPTORS 

• WHY ALL THIS INDIRECTION? 

II AVOIDS REPLICATION OF COMMON CODE IN LIBRARY DESCRIPTOR COMMANDS 

AVOIDS MODIFICATION OF MANY, SEPARATE COMMANDS WHEN 
0 A NEW LIBRARY IS ADDED 

fi A NEW LIBRARY ORGANIZATION IS INSTITUTED 

PERMITS LIBRARY DESCRIPTOR COMMANDS TO WORK ON NON-SYSTEM LIBRARIES 
WITHOUT REWRITING THEM 
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llbr«ry_fatch 
COMMAND 



librarv_8nfo 
COMMAND 



library.map 
COMMAND 



libr«rv.print 
COMMAND 



THE Muhic* 
STORAGE HIERARCHY 



CALLS 



CALLS 



CALLS 



CALLS 



llbrarv_ci«anup 
COMMAND 



CALLS 



ASCII 

DESCRIPTOR SOURCE 
SEGMENT 
.x.id 



MASSAGES AND/OR 
RETURNS INFO ABOUT 



fstch: 



lib_dMGriptor_ 

Mo: I SUBROUTINE 



map: 



print; j 
claanyp; | 



□□Q 

VARIOUS SEARCH 
PROCEDURES 



UpES 



IS TRANSLATED BY 



COULD ALSO 
REFERENCE 



library_dei 


criptor_compilor 




WHICH PRODUCES 


ALM SOURCE SEGMENT 
x.alm 




WHICH IS 
ASSEMBLED BY 


aim ASSEMBLER 




WHICH PRODUCES 


LIBRARY DESCRIPTOR k | 




ANOTHER 
OESCRII 


LIBRARY 
PTOR 



COULD ALSO 
REFERENCE 



SYSTEM-PROVIDED 
LIBRARY DESCRIPTOR 
muUMiJibrarlM. 

1 SPECIFIES 



SPECIFIES 
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Hist -first 1 

Segments = 3* Lengths s 80. 

r w 1 handout_desc,ld 
!pr handout^desc.ld 1 

Descriptor: handout^desc; 

Define: commands; 

command: library^print; 

library name: handout; 

search names: **; 
command: li; 

library name: handout; 

search names: **; 

Root: handout; 

path: >udd>F15D>s1>handout; 

search procedure: multics_library_search_$hardcore^bc^dir ; 



End: handout^desc; 
!ldc handout_desc 
llist -first 2 

Segments s 4, Lengths s 82 « 

r 2 handout_desc,alm 

r w 1 handout^desc.ld 

!alm handout desc.alm 
ALM 

llist -first 3 

Segments = 5, Lengths = 83. 

re 1 handout^^desc 

r 2 handout_desc.alm 

r w 1 handout desc.ld 
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!li gw. archive 

library^info: Use of star convention resulted in no match. 
While~searching for entries in the library. 
Descriptors multics libraries^ 

library name: online^libraries 
search name: gw.arcHive 



I Ids set handout_desc 
Hi gw. archive 



1 gw. archive type: archive 

paths >udd>F15D>s1>handout 
contents modified: 02/18/81 1648.4 system id: 34-32 

! Ipr gw. archive -components 

Hist -first 4 

Segments s 6, Lengths s 119. 

r w 36 library. print 

re 1 handout_desc 

r 2 handout^desc .aim 

r w 1 handout desc.ld 
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CONCEPTS 



• SOME BASIC TERMINOLOGY AND PROPERTIES SHOULD BE UNDERSTOOD: 



8 AIM IS A HONDISCRETIONARY ACCESS CONTROL MECHANISM 



i SENSITIVITY (AS MANY AS 8) 



0 CATEGORY SET (AS MANY AS 18) 



Q ACCESS CLASS OF A SEGMENT IS COMPRISED OF A SENSITIVITY AND A 
CATEGORY SET 



B ACCESS AUTHORIZATION OF A PROCESS IS LIKEWISE COMPRISED OF A 
SENSITIVITY AND A CATEGORY SET 

Q RELATIONSHIPS BETWEEN AUTHORIZATIONS AND ACCESS CLASSES 

SEGS DIRS 
AUTH > ACCESS CLASS re s 
AUTH = ACCESS CLASS rew sma 
OTHERWISE null null 

I SYSTEMS "NOT RUNNING AIM" USE A SENSITIVITY OF "SYSTEM_LOW" WITH 
NO CATEGORIES 
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0 DETERMINING THE "PROCESS MAXIMUM AUTHORIZATION" 

a TAKE THE MINIMUM OF THE FOLLOWING 3: 

Q PERSON MAXIMUM AUTHORIZATION ON ANY PROJECT 

Q PERSON MAXIMUM AUTHORIZATION ON THE GIVEN PROJECT 

B PROJECT MAXIMUM AUTHORIZATION 



B A SEGMENT RECEIVES ITS ACCESS CLASS FROM THE CONTAINING DIR, NOT 
FROM THE ACCESS AUTHORIZATION OF THE CREATING PROCESS 



B A DIRECTORY'S ACCESS CLASS DEFAULTS TO ITS CONTAINING DIRECTORY, 
BUT CAN BE "UPGRADED" UP TO THE PROCESS MAXIMUM AUTHORIZATION 
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THE FOLLOWING COMMANDS AND SUBROUTINES DEAL WITH THE ACCESS ISOLATION 
MECHANISM: 



B print_auth_naines (AG92) 

B THIS COMMAND PRINTS THE SHORT AND LONG NAMES OF THE AIM 
SENSITIVITIES AND CATEGORIES SET FOR THIS SITE 



0 get_authori2ation_ (AG93) 



D RETURNS THE AUTHORIZATION VALUE FOR THE CALLING PROCESS AS 



Q print_proc_auth (AG92) 

Q THIS COMMAND RETURNS CHAR-STRING REPRESENTATION OF THE PROCESS » 
AUTHORIZATION 



Q get_max_authorization_ (AG93) 

B RETURNS THE MAXIMUM AUTHORIZATION VALUE OF THE CALLING PROCESS 
AS THE »bit(72)' VALUE 



B convert_authorization_ (AG93) 

B PROVIDES SEVERAL ENTRY POINTS FOR CONVERTING AN AUTHORIZATION 
BACK AND FORTH BETWEEN ITS BINARY AND ITS CHARACTER-STRING 
REPRESENTATION 
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hcs__$get_access_class AG93) 
hcs_$get_access_class_seg (AG93) 

0 THESE RETURN THE ACCESS CLASS OF A SEGMENT OR DIRECTORY GIVEN 
EITHER A DIRECTORY PATHNAME AND ENTRYNAME, OR GIVEN A POINTER 
TO THE SEGMENT ITSELF 



B aim check (AK92) 



PROVIDES SEVERAL ENTRY POINTS WHICH ALLOW THE CALLER TO DETERMINE 
THE AIM RELATIONSHIP ("EQUAL", "GREATER", "GREATER-OR-EQUAL" ) 
BETWEEN TWO ACCESS ATTRIBUTES (AUTHORIZATION OR ACCESS CLASS) 



Q read__allowed_ (AK92) 
write_allowed_ (AK92) 
read write allowed (AK92) 



Q DETERMINE WHETHER THE SUBJECT OF A SPECIFIED AUTHORIZATION 
HAS ACCESS TO READ, WRITE, OR READ-AND-WRITE AN OBJECT OF 
SPECIFIED ACCESS CLASS 



1 get_privileges_ (AK92) 

B THIS FUNCTION RETURNS THE ACCESS PRIVILEGES OF THE CALLING 
PROCESS (E.G., ipc ALLOWED, ETC.) 



FOR A DISCUSSION OF AIM, SEE CHAPTER 6 OF THE MPM REFERENCE GUIDE. 
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Page 

user init> admin e**««<>ee»««ett*»ee»«e«e* B»1 

user_real_init_admin_ B-3 

process overseer ••'•se«oe*eeeee B*6 

project start up •••••••••o*««*««eeee«*« B— 10 

listen T B-15 
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user init admin 



ft » ft 

n » » 

n * Copyright (c) 1972 by Massachusetts Institute of * 

" * Technology and Honeywell Information Systems, Inc. * 
n ft ft 

n ■» - - .... ft 

n ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 

name user_init_admin_ 

entry user_init_admin_ 

entry daemon_init admin 

entry absentee_inTt_admTn_ 

tempd pit_ptr ,po_ptr,arg(3) 

include stack_header 

u s er__^i n i t^adm i n__ : 

eppab <user_real_init_admin_> | Cuser_real__init_admin_3 

tra join 

d aemon_i n i t__adm in_ s 

eppab <daemon_real_init_admin_> I [daemon_real_init_admin_] 

tra join ^ ^ 

absentee_init_admin__: 

eppab <absentee_real_init_admin_> I [absentee_real__init_adrain 

tra join 

join; push 

eppbp po_ptr prepare argument list 

spribp arg-i-2 

eppbp pit_ptr 

spribp arg+4 

fid =2b24,dl 

staq arg 



call real_init_admin_ (po^ptr, pit_ptr) 
call abi O(arg) 

call the process overseer always pass it the pit pointer 
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use^arglist: 

fid =1b24,dl set up argument list (1 arg) 

staq sp!0 

eppbp pit ptr,* retrieve the pit pointer 

spribp sp|7 
eppbp spi4 
spribp spl 2 

eppbp po ptr,* save pointer to process overseer 

eppap spTO get pointer to argument list 

short_call bp|0 
eppbp process_killing__pointer 
" get a pointer to -2!0 which will blow us away 

arg 0 
even 

process killing^pointer : 
its -2,0 

end 
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* Copyright (c) 1972 by Massachusetts Institute of * 

* Technology and Honeywell Information Systems, Inc. * 

»•.. ■. . ,. , * 

* ■ « 



/* This procedure is called by user_init__admin_ and is the second 
user ring program called in a newly cFeated process. It 
initializes the I/O system and returns a pointer to the 
process overseer to be called by user_init_admin^ after it 
returns. */ 

user_real__init_admin_: proc (process_overseer_ptr , pit_ptr); 

del process overseer^ptr ptr; /* pointer returned to user_init_admin 
del pit_ptr''ptr ; /• pointer to pit: returned non-null only for 
T standard case of process overseer */ 



del po^ptr ptr, /* points to process overseer for process */ 
(type, string) char (32), ~ 
status bit (72) aligned, 
code fixed bin (35) > 

based_code fixed bin (35) based (addr (status)), 
pp ptr; /* points to PIT */ 



del (null, length, addr, substr, pointer) builtin; 

del terminate_process_ ext entry (char (*), ptr), 

sct_manager_$set entry (fixed bin, entry, fixed bin (35)), 
timer_manager__$alarm_interrupt entry, 
timer__manager__$cpu__time interrupt entry, 

term__signal_^handler__ en'Fry, . - 

sus_signalJKandler__ entry, 

change_wdir entry (char (168), fixed bin (35)), 
wkp_signal_Eandler_ entry, - 
hcs_$terminate_noname entry (ptr, fixed bin (35)), 
hcs_$make_seg entry (char (*), char (*), char (*), 

fixed bin (5), ptr, fixed bin (35)), 
iox_$attach_iocb entry (ptr, char (*), fixed bin (35)), 
iox__$open entry (ptr, fixed bin, bit (1) aligned, fixed bin (35)) 
iox_$user_io ptr ext, 

ios $attach entry (char (*), char (*), char (*), char (*), 

*" bit (72) aligned), 

find command__$fc_no message entry (ptr, fixed bin, ptr, 

fixed bin (35)), 
ios_$ios__quick init entry (), 
ioa_ entry optTons (variable); 
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% include pitmsg; 
%include static^handlers; 
%include iox^modes; 

call hcs_$make__seg ("", "pit", 01000b, pp, code); 

/* get pointer to PIT */ 
type = pp -> pit.outer_module; /* Get DIM name •/ 
call ios_$ios_quick_init; /* initialize syn attachments 

/* now do things that need doing before working dir exists */ 

if *pp -> pit.at.vinitproc then call .find_po_and_dim; 

call change^wdir ((pp -> pit.homedir) , code); 

/* put home dir Tnto search path */ 

/* ignore code — if no wdir we do the best we can */ 

if pp -> pit.at.vinitproc then call f ind_po_and_dim; 

/* Now set up static handlers for "alrm**, "cput", and "term" */ 

call sct__manager_$set (cput__sct_index , 

timer_manager_$cpu_tirae_interrupt , code) ; 
call sct_manager_$set (alrm_sct_^index, 

timer_manager_$alarm_interrupt, code); 
call sct_manager_$set (term sct^index, 

term_signal~handler_5 TO)); 
call sct_manager'"$set (wkp^sct index, 

wkp~signal_JRandler_, codeT; 
call sct_manager__$set (susp_sct_index, 

sus_signal_handler_, (0)); 

return; 

f ind_po_and_d im : 

procedure (); 

if type = "tty__" then do; 

call iox_$attach_iocb (iox_$user io, 

"tty^ -login_channel" , codeT; 
if code = 0 then go to open; 

end ; 

call iox_$attach_iocb (iox_$user_io, 

type !! " 1 pp -> pit.tty, code); 
/* attach primary input/output stream »/ 
if code = d then do; 
open: call iox__$open (iox_$user_io, 

Stream_input_output, "0"b, code); 
if code *s 0 then call login^abort ("io_attach 

*" code) ; 

end; 
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else do; 

string r pp -> pit.tty; 

call ios iattach ("user i/o", type, 

string, statusTj 
if based_code 0 then call login^abort 

("io^attach" , based^code) ; 

end; 

pit_ptr = pp; 

call find^command_$fc_no_message 

(addr (pp -> pit.login^responder) , 

length (pp -> pit.login_responder) , po__ptr, code); 

if code ''s 0 then do; 

call ioa ("Could not find specified initial 
\cprocedure: *'a", pp -> pit.Togin^responder) ; 

call login^abort ("no_initproc" , code); 

end; 

process_overseer_ptr s po^ptr; 
return; 
end /* f ind_po__and_dim */; 

login__abort: proc (why, f atal^code) ; 
/* this procedure logs out the process with a special 
message indicating that an initialization error occurred */ 

del why char (*); /* reason we can't go */ 

del fatal_code fixed bin (35); /* code indicating fatal error */ 

del 1 term structure aligned static, 

2 versTon fixed bin init (Q), /* version of structure */ 
2 status_code fixed bin (35); /* fatal error code */ 

status_code = fatal_code; 
/* transmit code to terminate routine */ 
call terminate process^ (why, addr (term^structure) ) ; 
/* terminate tHe process */ 
end login^abort; 

end user_real_init_admin ; 
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/ft ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft 
ft ft 
ft ft 

* Copyright (c) 1972 by Massachusetts Institute of * 

* Technology and Honeywell Information Systems, Inc. * 
ft ft 
ft . ■ ft 
ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft ft/ 

proces5_oyerseer_: proc (pit^ptr); 

/* process_^overseer is the standard process overseer on the system. 
It has four responsTbilities: 

setting up an unclaimed signal handler, otherwise known as an any^other 
handler. This handler catched otherwise uncaught conditions. The 
supplied handler, def ault_error__handler_2$wall prints any message provided 
for the error condition, establishes a condition wall, and calls the 
listener to get a new listener level. A condition wall is just another 
any_other handler; this intercepts conditions that might otherwise be 
caught by other handlers present on the stack. 

setting up a static handler for the mme2 condition. The mme2 condition 
is raised when the mme2 instruction is executed. It is used by debug 
to establish breakdots. The handler transfers control to debug when 
the condition is signalled. 

allowing the **..** excape to -command query. This is enabled by calling 
command_query_$set_cp_excape with the appropriate bits. 

finding the start_up.ec. It looks in the homed ir, projectdir, and 
finally >sc1 to try to find it. It ends by calling listen^ with "ec 

start^upName" as the initial command line. " 

The code is written for time rather than space efficiency, so that 
operations that might look prettier in a do loop are done with inline 
code. */ 
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/* Automatic */ 

del initial_command_line char (104) var init {""); 

del pit^ptr^ptr ; 

del code fixed bin (35); 

del unaligned homed ir char (64) unaligned based 

(addr (pi'S^_ptr«> pit. homed ir)); 
del be fixed bin (24); 
del entry^type fixed bin (2); 
del first_process bit (1); 

/* Constants */ 

del process^type (0 : 3) character (12) varying internal 

static options (constant) initial ("initializer", "interactive", 
"absentee", "daemon"); 

del down_sc1 char (4) internal static options (constant) init (">sc1"); 

del start up dot_ec char (11) internal static options (constant) 
init T"s^art_up.ec") ; 

/» Entries »/ 

del hes_$terminate_noname entry (ptr, fixed bin (35)); 
del condition^ entry (char (*), entry); 

del command query $set ep escape enable entry (bit (1) aligned, 

bit (D^aligned); 
del listen__ ext entry (char (*) var); 
del default_error handler_$wall entry; 

del hes $status mlnf entry (char (*), char (*), fixed bin (1), 

fixed bin (2), fixed bin (24), fixed bin (35)); 
del set_manager_$set entry (fixed bin, ptr, fixed bin (35)); 
del process__over seer $mme2_fauit_handler_ entry (ptr, char (*), 

ptr, ptr, bit (l7) ; 

/* External variables */ 

del iox_$user_output ptr eixt; 

/» Builtins »/ 

del (codeptr, divide, null, rtrim) builtin; 

^include pitmsg; 
^include static^handlers; 

/*set up the unclaimed signal handler */ 

call condition^ ("any_other" , default_error_handler_$wall) ; 

/* turn on ".." */ 

call eommand_query__$set_^ep_eseape_enable ("1"b, (""b)); 

first^process = (pit_ptr -> pit*n_proeesses si); 
/* see if new proc or login */ 
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if * pit_ptr -> pit.at .nostartup then do; 
/* start_^up is allowed */ 
initial_coininand_line = "exec^com 

/* First try homedir */ 

call hcs_$status__minf (unaligned__hoinedir , 
start_up_dot_ec , 1, entry^type, be, code); 

/* note that we assume any error is cause to look elsewhere to 
give best chance of success ^/ 

if code r 0 & entry_type = 1 then 

initial_command_line s initial_command_line I I 
rtrim (pit^ptr -> pit, homedir )7 ~ 

/* now try projectdir */ 

else do; 

call hcs $status__minf (">udd>" il 
rtrim Tpit_ptr -> pit .project) , 
start__up_dot_ec , 1, entry^type, be, code); 

if code = 0 & entry type = 1 then 

initial_comman"3_line = initial_command_line I I 
">udd>" !! rtrim (pit^ptr -> pit. project) ; 

else do; 

call hcs__$status_minf (down^scl, 
start_up_dot_ec, 1, entry_type, be, code); 
if co'de = 0 & entry type = 1 then 

initial_^commanH_line s 

initial^^command^line !l down__sc1 ; 
else do; 

initial_command_line - ""; 

goto no_start_up; 

end; 

end; 

end; 

initial_command_line = initial_comroand_line IS ">"; 
initial~command_line s initial_command]|^line I | 
" start_up_dot^ee; 
/* the piecemeal assemble makes faster code""*/ 

if first__process 

then initial command line = 

initial~command~line il " login "; 
else initial_command_line~= 

initial^command^line I! " new_proc "; 

initial_command_line = initial_command_line 
1! process__type (pit^ptr -> pit.process^type) ; 
end; /• the block that checked pit.nostart*/ 
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no_start_up: 

call hcs_$terminate_nona!ne (pit^ptr, code); 

/* set up the mine2 handler */ 

/• this is done here rather than in xxx_real_init_admin__ so that 
process overseers for limited subsystems can leave it out */ 

call set manager_$set (mme2__sct_index, 

codeptr Tprocess_overseer_$mme2 fault_handler_) , code) ; 



do while ("1"b); 

call listen^ (initial_^command_line) ; 

end; 
return; 

mme2 fault handler^: entry (mcp, cname, cop, infop, cont); 
del Tmcp p'Er, /* to machine donditions */ 

cname char (*), name of condition being signalled */ 

cop ptr, 

infop ptr, 

cont bit (D) parameter; 
del debug$mme2_fault entry (ptr); 

call debug$mme2_fault (mcp); 

cont = "O^b; /* do not continue searching for handlers */ 
return; 
end process overseer ; 
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ft ft 

ft ft 

» Copyright (c) 1972 by Massachusetts Institute of * 

* Technology and Honeywell Information Systems, Inc. * 

ft ft 

ft ft 



ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft ft/ 

pr o j e c t_ s t a r t_up__ : 

procedure (pit_ptr); 

del pit ptr ptr; 

del iniTial_eommand_^line char (256) varying; 

del listen_ entry (char (*) var); 

del terminate_process_ entry (char (*), ptr); 

del com_err__ entry () options (variable); 

del ioa_$ioa_switch entry options (variable); 

del any_other_handler entry variable; 

del any_other condition; 

del (length, null, unspec) builtin; 

^include iox^dcls; 

any_other handler = error_handler ; 
on any^^otTier call any_other_handler ; 

/* Set up any^other handler outside the begin block */ 

begin options (non^quick); 

del saved_cl__intermediary entry variable; 

del hoffle__dir char (168); 

del projected ir char (168); 

del mme2_handler ptr; 

del sav€d_mme2_handler ptr; 

del ps ec cl character (256) aligned; ^ 

del co^e Tixed bin (35); 

del be fixed bin (24); 

del entry_type fixed bin (2); 

del first process bit (1); 

del (firs'?^__ee_arg, second_ee_arg) ehar (12); 

del wali_entry entry variable; 

del process^type (0:3) character (12) 

internal static options (constant) initial 
("initializer** , "interactive", "absentee", "daemon"); 
del down_sc1 char (19) internal static 

options (constant) init (">system control__dir") ; 
del start__up dot_ee ehar (11) internaT static" 
options Teonstant) init ("start_up.ee"); 
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del cu_$cp entry (ptr, fixed bin (21), fixed bin (35)); 
del convert status_code_ entry (fixed bin (35), 

char (87 aligned, char (100) aligned); 
del change_wdir_ entry (char (168), fixed bin (35)); 
del hcs__$make_entry entry (ptr, char (*), char (*), 

entry, fixed bin (35)); 
del hes_$terminate_nGname entry (ptr, fixed bin (35)); 
del command query_$set_cp_escape_enable entry 

(bit (l7 aligned, bit (1) aligned); 
del default_error_handler_$wall entry; 
del hes_$status_minf entry (char (*), char (*) , 

fixed bin (1), fixed bin (2), fixed bin (24), 

fixed bin (35)); 
del sct_manager_$set entry (fixed bin, ptr, 

fixed bin (35)); 
del sct_manager_$get entry (fixed bin, ptr, 

fixed bin (35)); 
del process_overseer_$mme2_fault handler 

entry (ptr, char (»), ptr, p"Er, bitTD); 
del eu_$set__el__intermediary entry (entry); 
del eu_$get^cl_intermediary entry (entry); 

del eommand^error condition; 

del (addr, codeptr, length, null, rtrim, unspee) 

builtin; 

^include pitmsg; 
^include static__handlers; 

home^dir = pit__ptr -> pit.homedir; 
project_dir = ">user_dir_dir>" | j 

rtrim (pit_ptr -> pit. project) ; 

call set_manager_$get (mme2 set^index, 
saved_mme2_Handler , (07); 

call hcs_$status_minf (project^^dir , 

"project_start_up«ec" , 1, entry type, be, code); 
if '*(entry_type = 1 & code = 0) *" 
then call abort^handler (rtrim (project^dir) I I 
">pro ject_start_up.ee was not found or is not a segment.", 
code); 

call ehange_wdir_ (projeet_dir , code); 
if code ^=0 
then call abort_handler 
("Could not set working directory to project directory.", code); 
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f irst__process = (pit_ptr -> pit.n^processes = 1); 

if f irst__process 

then first_ec_arg = "login"; 

else first__ec_arg = "new_proc"; 

second_ec__arg = process^type (pit^ptr -> pit .process_type) ; 

call hcs $make_entry (null (), "default_error__handler__" , 
"waTl" , will^entry, code); " 

if code 0 

then wall_entry = default__error_handler_$wail; 
any_other_handler = wall_entry; 

call cu_$get_cl_intermediary ( saved_cl__intermediary) ; 
call cu_$set_cl~intermediary (error~handler) ; 

on command^error call com_err__handler ; 
/* die on com^err */ 

ps_ec_cl = "exec__com " || rtrim ( project_dir) 11 
" »»>project__start_up " \\ rtrim (first__ec_arg) I! 

" •» 1 1 rtrim (second_ec_arg) ; 
call cu $cp (addr (ps_ecjcl)7 

length (rtrim (ps_ec_cl)), (0)); 

revert command^error ; 

call cu_$set_cl_intermediary (saved_cl_intermediary) ; 

call change wdir__ (home_dir, code); 
if code *s 0 

then call com_err_ (code, "project_5tart_up , 
"Could not set working directory to *a.", home^dir); 

call command_query_$set_cp__escape__enable ("1"b, (""b)); 

if ^pit_ptr -> pit.at.nostartup 
then do; 

initial command^line s "exec com "; 
call hcS $status_minf (home_3ir, 

stdrT_up_dot__ec , 1, entry^type, be, code); 
if code = 0 & entry_type s 1 
. . then initial^command^line = 

initial__command_line !l rtrim (home_dir); 
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else do; 

call hcs__$status_minf (project^dir , 
start_up_dot_ee J 1, entry^type, be. code): 

if code = 0 & entry^type = 1 

then initial command line = 
initial_command_^line*"| t project_dir; 
else do; 

call hcs_$status_minf (down_sc1, 
start-up dot^ec, 1, entry_type, 
be, codeT; 
if code = 0 & entry__type s 1 
then initial_command_line = 
initial_cofflroand__line il down__sc1; 
else do; 

initial_commartd_line = ""; 

goto no_start__up; 

end; 

end; 

end; 

initial_command__line = initial_command_line i! ">"; 
initial_command__line = initial_command_line 1 1 

start_up_dot ec; 
initial_command_lTne s initial_command_line j i " " ! | 

f ir st_ec_arg ; 

initial_command_line = initial_command_line i I " " i i 
second_ec_arg ; 

end; 

no__start ups ^ ' 

calT hcs__$terminate_noname (pit^ptr, code); 

call set manager__$get (mme2 sct__index, mme2_handler, (0)); 

if mme2__'Handler = saved__mme^__handler 

then call sct_manager_$set (mme2 sct_index, codeptr 
( process_overseer_^$mme2_f auTt_^handler_^) , code) ; 

end; " • 

call listen_ (initial_command_line) ; 
do while <"1"b); 

call listen^ (""); 

end; 
return; 

com_err_handler : 

procedure; 
$ include condition_info_header ; 
%include condition^info; 
% include com__af__error_info; 

declare 1 CI aligned like condition info; 

declare find condition info_ entry Tpointer, pointer, 

fixeZ binary (?5)); 
declare code fixed bin (35); 
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unspec (CI) = .""b; 

call find_condition info_ (null (), addr (CI)j code): 
if code 0 

then call abort^handler ("Can*t get error message.", code); 
call ioa $ioa_switch (iox $error_output, "*a**, 

CI.Tnfo_ptr -> coin_aT_error_info .info^string) ; 
call abort_handler ("Error in project start up,", 0); 

end ; 
error_handler : 
entry; 

call abort_handler ("Error in project start up.", 0); 

abort_handler : 

proc (reason, code); 

del code fixed bin (35); 

del reason char (»); 

del 1 term^structure aligned, 

2 version fixed bin init (0), 

2 status_code fixed bin (35); 

status^^code = code; 

call ioa_$ioa_switch ( iox_$error_output, reason); 
call terminate^process^^ ("init^error" , addr ( term^structure) ) ; 
end; — — — 

end project_start_up_; 
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/« ««ft««»ft«»ftftft««»ftft»«ftftft«««ft««ft«ftft«ftftft««ftffft«ft»««ft«ftft»ftft» 



ft ft 

ft ft 

* Copyright (c) 1972 by Massachusetts Institute of * 

* Technology and Honeywell Information Systems, Inc. * 
ft ft 
ft ■ ft 



ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft ft/ 

listen^: procedure (initial_command_line) ; 

/* Multics Listener */ 
del iox_$user_input ptr ext static; 
del iox_$user__io ptr ext static; 
del (buffer ptr, 

read^pTr ptr, 

dummy_ptr ptr, 

pet internal static initial (null), 
old^sp 

) pointer aligned; 

del (input^iength, buf fer_length) fixed bin (21); 

del total~input_length fixed bin (21); 

del entry, /* 0->$listen_, 1->$release_stack •/ 

i fixed bin aligned; 
del code fixed bin (35) aligned; 

del initial_command_line char (*) var, 

/* first command line to be executed */ 
command^line char (input__length) aligned based (buf fer^ptr) ; 

del spno bit (18) aligned, /* used to store stack segno */ • 
( should_restore__attachments , 

(first,""/* "1"b means control structure not initialized */ 
quits__not_enabled) int static init ("1"b) 
) bit (1) aligned; 

del 1 X based (buf fer__ptr) aligned, 
2 ch (0:65536) char (1) unaligned; 

del 1 label var aligned based, /* overlay for a label */ 
2 targeT ptr, /* target of entry/label variable */ 
2 staekp ptr; /* stack offset of entry/label variable */ 

del 1 ct aligned, /* automatic structure containing control info */ 
2 prev__ptr ptr, /* ptr to last listener stack frame (if any) */ 
2 release_all label, /• label in "top" level to release to */ 
2 release label, /* label to release to */ 

2 new^release label, /* label next invocation is to release to */ 
2 start label, /* label for start command */ 
2 flags aligned, 

3 dont^restore bit (1) unal, /* "1"b causes io attachments 

not to be restored on start */ 
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3 pad bit (35) unal, 
2 frame fixed bin, /* stack frame of current invocation */ 
2 level fixed bin; /* level of current invocation (from 1) */ 

del 1 bet aligned based (pet) like ct; 

del ios_signal_ entry (char (32) aligned, fixed bin (35)), 

iox_$get_line entry (ptr, ptr, fixed bin (21), fixed bin (21)) 

returns (fixed bin (35)), 
iox_$control entry (ptr. char (*), ptr) returns (fixed bin (35)), 
com__err_ entry options (variable), 

eu_$ep ext entry (ptr, fixed bin (21), fixed bin (35)), 
cu__$ready_proc ext entry (), 

eu_$grow_stack_frame entry (fixed bin (21), ptr, fixed bin (35)), 
get system free_area_ entry returns (ptr), 
cu__5stack_Trame~ptr ext entry () returns (ptr); 

del (addr, 

baseno, 

divide, 

fixed, 

length, 

min, 

null, 

ptr, 

rel 

) builtin; 
del cleanup condition; 

del error_table_$long_reeord ext static fixed bin (35); 
% include stack frame; 
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/» Establish this frame as the "top" of the listener frame thread, 
so that this frame cannot be "released" around. */ 
entry s 0; 
go to re__enter; 

/* Entry called after processing quit or unclaimed signal */ 
release^stack: entry (should_restore_^attachments) ; 

entry s' 't; 

/* Save pointer to previous listener control information, save return 
Ac 

point for subsequent invocations of the listener, 
and initialize switches */ 
re enter: 

*" if first then do; /* no previous invocation to work from */ 

ct,prev_ptr = null; 

ct.level = 1; /» this is first invocation */ 
sp = cu_$stacl<: frame_ptr (); /* find stack frame */ 
spno = baseno Tsp) ; /* get segno for comparing */ 
i ^ 0; 

•do while (baseno (sp -> stack frame.prev sp) s spno); 
i - 

sp s sp ^ s t ack_f r ame . pr ev^sp ; 

end; 

ct.frame = i; 

end; 

else do; /* can use info from previous invocation */ 
ct.prev__ptr = pet; 
ct. level = bet. level +1; 

old_sp = addr (bet. start) -> label_var .stackp; 

/* find previous frame */ 
sp = cu__$stack_frame__ptr (); 
is bet. frame; 
do while (sp '^s old^sp); 

/* find number of'^intervening frames */ 
i = i + 1 ; 

sp = sp stack_frame.prev_sp; 

end ; 

ct.frame si; 

end; 

/* fill in labels for release and start »/ 
if (entry = 0) ! first then do; 
ct .release ail, 
ct.reTease, 

ct. new release = readyt; 
first s ^0»^; 

end; 

else do; 

/* will want to release to invocation before this one */ 
ct.release^all = bct.release^all; /* dont change it */ 
ct .release = bct.new^release; 
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ct.new^release = readyt; 

end ; 

ct. start s start__return_polnt; 

pet s addr (ct) ; 

/* have finished getting info from old frame 

ct.flags,dont_restore = "0"b; 

/* set ptrs to current control info and to buffer 
in which to read in command line */ 

buffer_length = 32; /• start with 128 char input buffer */ 
call cu_$grow_stack_frame (buffer__length,buffer_ptr , code); 
/* get storage for initial buffer */ *" 

/* Establish cleanup procedure to restore control structure thread */ 
on condition (cleanup) begin; 

pet = bct.prev ptr; /» pop structure of interest */ 
if pet = null then first = "1"b; 

end; 

/* Check for entering via "release^stack" entry without having first 
entered via "listen^". This can happen, e.g., if user takes fault 
before standard process_overseer_ calls listen^. If this happens, 
enable quits. *7 

if quits^not_enabled then do; 
quits_not_enabled = "0"b; 

code = iox_$control (iox_$user_io,"quit_enable'' ,null) ; 

end; 

/* If called at the listen entry, set up initial command 
line and enable quits *7 
if entry = 0 then do; 

if initial__command line *s then do; 
if length (inTtial_command_line) > 
buffer_length » 4 then doj 

call com err_ (0, "listen^", 
"InitiaX command line is too long.^iS 
"Max=*d chars." ,buf fer_length»4) ; 
go to readyt; " 

end; 

input_length = length ( initial_command_line) ; 
command_line s initial_command_line; 
total input length s 0; 
go to CALL_CP; 

end; 

end; 
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/» »»»»»»»»»»»««»»»»»»«START OF BASIC LISTENER LOOP*********** */ 

/* Call the "ready procedure", */ 
readyt: call cu_$ready_proe (); 

/* Read the next eommand line */ 
readnew: read__ptr = buffer^ptr; 

total_input_length s 0; 
/* extra input line character count */ 

read: 

code s iox_$get line (iox__$user_input, read_ptr, 

buffer length*Tr-total_input_length,input__length) ; 
if code'"*s 0 then doj 

if code *= error__table_$long_record then 
call ios signal^Cuser input", code); 
else do; 

if input length < 
bufferJTength * 4 - total_input_length 
then goto CALL_CP; 
call cu__$grow_stack frame (buf fer_length, 

duminy_ptr, code); 7* double size of buffer */ 
buf fer__length = buf fer^length + buffer^length; 
read_ptr = addr (read_ptr -> ch ( input_length) ) ; 
total input length = total^input^length + 
inpu^^lengTh; 

end; 

goto read; 

end; 

CALL_^CP: call cu__$cp (buffer^ptr, total^input length + input length, 

code) ; " 
if code s 100 then go to readnew; 

/* ignore null command line */ 
go to readyt; 

/« ft*«»»«ftft)i*ft«»ft«ft£ND OF BASIC LISTENER LOOP****************** */ 
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start_return_point: /* start conmand goes here */ . 
if ct.flags,dont__restore then 

shoulder es tor e__attachments s "O-b; 
pet s bct.prev^ptr ; 
return; 

get^pct: entry (ct^ptr); 
del ct_ptr ptr; ~ 

/* Return pointer to control structure •/ 
ct ptr s pet; 
re'Eurn; 

get^level: entry (level_no, frame_no); 

/* return command level number and stack frame number of caller's 
caller */ 

del (level_no, frame^no) fixed bin; 

if pet s null then do; /» no previous invocation */ 
level_no s 0; 

old^sp s ptr (addr (old^sp) , 0) -> 
stack^header .stack begin^ptr; 
/• in case we're not in hTghest ring */ 
frame^no = 0; 

end; 

else do; /* count only up to previous listener •/ 

level_no = pet -> bet .level; 

old_sp r addr < bet. start) -> label^var .stackp; 

frame_no s bet .frame; 
end; ~ 

sp = cu $stack_fraffie_ptr () -> staek^frame.prev sp -> 
stack^Trame.prev sp; . 
/* want frame no oT caller's caller •/ 
do while (sp '^s old^^sp); 

frame^no s frame^no + 1 ; 
sp s sp -> stack^frame.prev^sp; 
end; ~ 
return; 

get^area; entry returns (ptr); 

return (get_system_free_area_ ()); 

^include stack_header ; 

end; 
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The name used to designate an MCS communications channel is a character 
string of up to 32 characters. The name is composed of components 
separated by periods, where each component represents a level of 
multiplexing, the first two components identify the physical channel 
on an FNP; further components (if present) identify the subchannels of 
a concentrator (such as a VIP 7700 controller). 

Format of physical channel name: The physical channel name (which 
corresponds to the old-style name of the from ttyXXX) has the following 
format: 

F.ANSS 



where: 
F 



A 

N 

SS 



is an FNP identifier (a, b, c, or d) 

is an adapter type (h for an HSLA channel, 
1 for an LSLA channel) 

is the number of the particular adapter 
(0-2 for an HSLA, 0-5 for an LSLA) 

is the decimal number of the subchannel on the 
specified adapter* 



Examples: 



Name 



Description 



Old form 



a .1000 FNP a, LSLA 0, subchannel 0 ttyOOO 

a. hlOS FNP a, HSLA 1, subchannel 8 tty708 

b. hOl6 FNP b, HSLA 0, subchannel 16 ttyG16 



Multiplexed channels: The format of the additional components of the 
names of subchannels of a concentrator or "multiplexer** depends on the 
particular multiplexer; it may be a station Id, or a sequential number, 
etc. For example: 

Name Description 

b.h0l6.01 FNP b, HSLA 0, subchannel 16, 
concentrator subchannel 1 

b.h016.09 same physical channel, concentrator 
subchannel 9 



ARPANET channels: The names of ARPANET channels are of the form netXXX 
for user_telnet channels or ftpXXX for file- transfer channels, where 
XXX is an arbitrary 3-digit number. 
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The following segments set up the environment such that students may 
complete the interprocess communication workshop. Note in ipc^driver .pll 
the call to get_userid_. For this call to successfully return, it is 
required that your instructor obtain read access to >sc1>answer table. 



ipc_report: proc; 

del i fixed bin, 

get wdir_ entry returns (char (168)), 
stucT^ptr ptr, 

ioa_ entry options (variable), 

hcs $initiate entry (char (*), char (*), char (») 

fixed bin (1), fixed bin (2), ptr, fixed bin (35) 

code fixed bin (35), 

clock entry returns (fixed bin (71)) i 

date Time entry (fixed bin (71), char (*)), 

my^tTme cHar (24); 

del 1 stud_ipc based (stud ptr) aligned, 
2 index fixed bin, ~ 
2 studs (0 refer (index)), 
(3 codes char (8) , 
3 name char (22) , 
3 proj char (9), • 
3 time char (16)) unal; 



call date time (clock_ (), my time); 
call he s^f initiate (get_wdir_ T) , "ipc^status" , 
0, T, stud^ptr, co?e); 

call ioa ("REPORT FOR F15D WORKSHOP #3 "a", my time); 
call ioa"" (""3/ user id time*/"7| 

do i s l^to index; 

if name (i) *s "»» then 

call ioa (""a. "a *a", 

" name (i), proj (i), time (i)); 

end; 

end ipc^report; 
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ipc^driver: proc; 

del send_inail_ entry (char (*), char (*), ptr, fixed bin (35)), 
get_wdir_ entry returns (char (168)), 

hcs $make_seg entry (char (*), char (*), char (*), fixed bin (5), 
ptrT fixed bin (35)), 

hcs $wakeup entry (bit (36), fixed bin (71), fixed bin (71), 
fixed bin (35)), 

ipc_$create_ev__chn entry (fixed bin (71), fixed bin (35)), 
ipc'"$decl ev call chn entry (fixed bin (71), entry, ptr, fixed bin, 
fixed bin (35)), " 

get_process_id entry returns (bit (36)), 
(ioa__, com err 7 entry options (variable), 

get useriH" entry (bit (36), char (*), char (*) , fixed bin, fixed bin, 
fixed bin T35)) , 

iox_$control entry (ptr, char (*), ptr, fixed bin (35)), 
date_tiine_ entry (fixed bin (71), char (*)), 
clock_ en'Fry returns (fixed bin (71)), 
unique bits_ entry returns (bit (70)), 
unique^chars^ entry (bit (*)) returns (char (15)); 

del 1 send mall info aligned, 

2 version fixed bin init (1), 

2 sent_from char (32) aligned init ("Mr. Wonderful"), 

2 switches ~ 

(3 wakeup'bit (1) init ("1»b) , 
3 mbzl bit (1), 

3 always add bit (1) init ("1"b), 
3 never add bit (1) init ("0"b), 
3 mbz2 "Bit (1), 

3 acknowledge bit (1) init ("0"b), 
3 mbz bit (30)) unalj 

del Congrats char (40) internal static options (constant) 

init ("Congratulations - mission accomplished!!"); 
del lpe__status_full_msg char (66) internal static options (constant) init 
("Instructor's table has overflowed* Please notify him immediately."); 

del destination char (32); 
del code fixed bin (35); 

del 1 set up based (su ptr), 
2 my pid bit (36)," 
2 my~chid fixed bin (71); 

del me char (10) init ("ipc^driver") static options (constant); 

del 1 event info based (ei_ptr), 
2 channel_id fixed bin (71), 
2 message fixed bin (71), 
2 sender bit (36), 
2 origin, 

3 dev_signal bit (18) unal, 

3 ring bit (18) unal, 
2 data_ptr ptr; 
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del (su^ptr, ei_ptr, sptr) ptr; 
del iox_$user__io ext ptr; 

del error_table_$lnvalid_channel ext fixed bin (35); 
del stringO static fixed^bin (71); 
del stringl char (8) based (sptr), 

string2 char (8) based (mptr); 
del mptr ptr; 
del person char (22), 

project char (9)» 
(type, anon) fixed init (0) bin, 

stud^ptr static ptr; 

del 1 stud_ipc based (stud ptr) aligned, 
2 index fixed bin, " 
2 studs (0 refer (index)), 
(3 codes char (8) , 
3 name char (22), 
3 proj char (9), 
3 time char (16)) unal; 

del 1 fixed bin; 



/» Set it up •/ 

call hcs_$make_seg (get_wdir_ (), "channel_info" , 10, 

su^ptr, code); — — — 
call ipc $create_ev__chn (my^chid, code); 
if code 0 then do; ~ 

call com_err_ (code, "ipc^driver") ; 

return; "~ 

end; 

my_pid s get_process id_ (); 

call ipc $decl ev_caTl_chn (my chid, wakeme, null (), 0, code); 
if code 0 tHen do; 

call com^err^, (code, "ipc^driver") ; 

i^eturn; 

end; 

call ioa ("End *a$*a", me, me); 



del timer_manager $sleep entry (fixed bin (71 )» bit (2)); 
do while""("1"b); 

call timer_manager_$8leep (900, "11"b)j /» 15 min, */ 

end; " 
return; 



/* Come here when wakeup received */ 
wakeme: entry (ei^ptr); 

call hcs $make_seg (get_wdir__ <), "ipc^^status" , "",10, 
stuB__ptr ,°*code) ; 
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if stud^ptr = null () then do; 

call coni_err_ (code, "ipc^^driver") ; 
return J " 

end; 

call get userid_ (sender, person, project, type, anon, code); 
if code 0 then do; 

call com_err_ (code, "ipc driver", 
■. ■■-'■■yy;.. --.^Heed •r* access on 7sc1>answer_table"); 

return; 

■ end; 

call ioa_ ("A wakeup from '^a^^'a was just received.", person, 
project); But that does not imply he*ll wake me 

up again with the proper reversed msg */ 

mptr s addr (message); 

do i = 1 to 250 while (codes (i) "«); 

if string2 = codes (i) then goto got^one; 

■ end; " 

if i = 251 then do; 

call com err (0, "ipc^driver" , 

"TaBle Tn the segment •ipc_status« is full. 
System will not function properly."); 

destination s rtrim (person) !! "." || rtrim (project); 
call send_mail_(r trim (destination), ipc_status_full_msg, 

addr (send_mail_info) , code); 
if code Q then do; ] 
call com_err_ (code, "ipc^driver" , "Bad call to send^ma. ^ 
occurred while trying to complain about full table in »ipc_^status« .") ; 

return; 

end; 
return; 

end; 

sptr = addr (stringO); /» Overlay stringi onto stringO */ 
string! = substr (unique chars (unique_bits_ ()), 8, 15); 
index s index •¥ 1 /* in?ex reTlects the true size of 

stud ipe. studs array */ 
codes (index) = reverse (s¥ring1); 
call hcs $wakeup (sender, message, stringO, code); 
if code "^s 0 then do;* 

call com__err__ (code, "ipc^driver"); 

return ; - 

end ; 

goto finis; 



got_one: 

name (i) s person; 
proj (i) s project; 

call date_time_ (clock (), time (i)); 

call ioa ("'^a.^'a compTetes assignment", person, project); 
destination s rtrim (person) 1 1 "." i I rtrim (project) ; 
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call sencl_mall_ (rtrim (destination), congrats, 

addr (send_mail_info) , code); 
if code '^s 0 then do; 

call con err (code, "ipc^driver" , "Bad call to send mail_"); 

return; — — — — 

end; 



finis: 



end ipc_driver; 
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init_ipc: proc; 

del get_wdir_ entry returns (char (168)); 
del 1 stijd_ipc based (stud^ptr) aligned, 
2 index fixed bin, 
2 studs (250), 
(3 eodes ehar (8) , 
3 name char (22) , 
3 proj char (9)» 
3 time ehar (16)) unal; 
del hcs $make seg entry (char (*), char (*), char (*), 

fixed bin""(5), ptr, fixed bin (35)); 
del hcs $add acl entries entry (char (*), char (*), ptr, 

fixed bin, fixed bin (35)); 
del I seg_acl aligned, 

2 access name ehar (32) init ("* .F15d,*") , 
2 modes "Bit (36) init ("1"b), 
2 zero_pad bit (36) init ("0"b), 
2 status code fixed bin (35); 
del code fixed bin (35), 

ioa_ entry options (variable) , 
stud ptr ptr, ' 
i fixed bin; 

call ioa ("Begin init ipc"); 

call hcs3oal^®_seg (ge^ wdir_ (), "ipc^status" , 

1 0 ,""stud Jptr , codeT; 
call hes_$add_acl_entries (get^wdir^ (), "ipe^status" , 

— — ""addr""(seg_acl) , 1, code); 

index = 0; 

do i s 1 to 250; 

time (i), name (i), proj (i)L, cedes (i) s <*"; 

end; 

call ioa_ ("End init_ipc"); 
end init_ipc; 



ABSENTEE SCRIPT ipc.absin 

&ready off 

ewd >uHd>F15d>s1 

ipe_driver 

& To prevent the absout segment from growing inordinately large, 

& the instructor has inserted the following command, which will guarantee 

& an absout segment of 10k or less. 

if [greater Est Ipc .absout -be] 14745603 »then "tc ipe .absout" 
logout 
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APPENDIX E 
Standard Process Overseers 



On April 23, 1981 » the following command was typed: 

li *overseer_.* -library source 
The terminal output that resulted appears below. 

1 accounts_overseer_,pl1 types arch comp 

path: >ldd>tools>source>bound_admin_rtnes_.s. archive 
component updated: 01/29/75 1711 .6 

1 cards_overseer_.pl1 type: arch comp 

path: >ldd>tools>source>bound card Input^.s. archive 
component updated: 09/04/79 1718.4 " 

1 dfast^process overseer .pll types arch comp 

""path: >Tdd> unb> sour ce>bound__df as t_.s .archive 
component updated: 09/01/76 1342.7 " 

1 fst_process_overseer_.pl1 type: arch comp 

path: "'>rdd>unb>source>bound^fast__.s. archive 
component updated: 06/07/77 1504.7 ~ 

1 ftp__server_overseer_.pl1 type: arch comp 

path:" >ldd>net>source> bound ftp server .s .archive 
component updated: 09/23/77 1031.5 

1 iod overseer .pll type: arch comp 

" path: >ldd>tools>source>bound_^iodc_.s. archive 

component updated: 03/13/81 1038.7 

1 terminals_overseer_,pn type: arch comp 

path: >ldd>tools>source>bound_admin rtheis^.s.a^^ 
component updated: 03/23/81 1014.8 

1 tolts_overseer_.pl1 type: segment 

path: >ldd>tools> source 
contents modified: 12/01/80 1136.8 



Another important overseer: project__start_up_ 
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Gate and Message Segment Examples 



Page 



F-i 



F15D 



APPENDIX G 
Advanced Dial Facility Example 



Page 



G-i 



set_up_dial: proc; 

/* The set_up_dial entry point initializes the dialing environment 

1) An event-call channel is established so that 
the answering service can notify this process 
of dialins, hangups, etc. 

2) Dials are enabled 
»/ 

/* 'dialok* attribute essential if this procedure is to succeed */ 

del ipc_$create_ev chn entry (fixed bin (71), fixed bin (35)), 
ipc_$delete_ev~chn entry (fixed bin (71) > fixed bin (35)), 
ipc $decl_ev_call_chn entry (fixed bin (71), entry, 
ptrT fixed bin, fixed bin (35)), 

hcs_$assign_channel entry (fixed bin (71), fixed bin (35)), 
dial_inanager_$allow__dials entry (ptr, fixed bin (35)), 
(ioa_, com_err__, ioa_$ioa_switch) entry options (variable); 

del wasted channel fixed bin (71); 

del time cHar (24); 

del code fixed bin (35), 

iox^$user output external static ptr, 

ME char (T2) varying init ("set up^dial") ; 



del 1 dial manager arg aligned static, 
2 versTon fixeZ bin init (1), 
2 dial_qualifier char (22) init ("astra"), 
2 dial^channel fixed bin (71), 
2 channel_name char (32) ; 

call ioa_ ("Begin "a", ME); 

/* The following code is inserted to fake out tty_, which will 
attempt to give us fast channels we can not deal with (see the 
»read_status« control order). By consuming all the fast channels now 
(and there aren*t many available to us), weHl force tty_ to use 
garden_variety channels, which we can easily handle. */ 

code s 0; 

do while (code =0); 

call hcs_$assign_channel (wasted^channel, code); 
end; ^ 
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/* Channel must be obtained for notifying this process of */ 
/* all hangups and dialups. */ 

call ipc_$create__ev_chn (dial_manager_arg«dial_channel , 
code) * ■ ■ 

if code "='o then call ERROR (1); 

/* Next let the answering service know we will accept 

dials " we must do this before changing the event-wait 
channel to an event-call channel */ 

call dial^manager_$allow_dials (addr (dial_manager_arg) , 
codeT; 

if code 0 then call ERROR (2); 

/* Make the event-wait channel an event-call channel and 
specify that my 'dial^handler' will be invoked whenever 
the answering service wakes my process on this channel */ 

call ipc_$decl ev_call_chn (dial_manager_arg,dial_channel , 
dial_handTer , null (), 0, code); 



if code *= 0 then call ERROR (3); 

/* Okay... now return and wait for something to happen */ 
call ioa_ ("Now listening for dials s *a", ME); 
return; 

dial_handler : entry (info^ptr); 

/* Handler for dial messages - this entry point will 

be invoked whenever something happens that the answering 
service notifies me about •/ 

del dnfo__ptr ptr parameter; 
del 1 event_info based (info_ptr), 
2 channel_id fixed bin (71 )» 
2 message fixed bin (71) t 
2 sender bit (36), 
2 origin, 

3 dev signal bit (18) unal, 
3 ring bit (18) unal, 
2 data^ptr ptr; 

del listen_to_dial entry(ptr); /* proc to dialog with terminals */ 
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del convert dial__message_$i*eturn_io module entry 
(fixed bin (71), char (*), c.harT»), fixed bin, 
1 aligned like status_flags, fixed bin (35)); 

del 1 status flags aligned, 

(2 dialed^up bit (1), 

2 hung up bit ( 1) , 

2 control bit (1), 

2 pad bit (33)) unal; 

del I dialed static, This structure works for 

max_num_al lowed <s 10 */ 
2 no dialed fixed bin init (0), ^ 
2 sw~(10), 

3 swname char (6) init ( 
"dialOl", "dial02", 
"dial03", "dial04«, 
"dialOS", "dial06", 
"dialOT", "dial08«, 
«dial09", "diallO"), 
3 iocb^ptr ptr init ((lO)null ()),/* An available switch is 

characterized by null ptr »/ 

3 devname char (32); 

7* ¥e will-^nly talk to 2 terminals at a time, hanging up the third */ 
del max_num_allowed internal static options (constant) init (2); 

del nomore__ptr internal static ptr init (null ()); /* This iocbptr is 
used for talking to a doomed tty when system full 

del iox_$find_ioeb entry (char (»), ptr, fixed bin (35)), 

iox_$attach_ptr entry (ptr, char (*), ptr, fixed bin (35)), 

iox_$destroy__iocb entry (ptr, fixed bin (35)), 

iox_$control entry (ptr, char (*), ptr, fixed bin (35)), 

error__table__$io__no__permission external static fixed bin (35), 

iox_$open entry (ptr, fixed bin, bit (1) aligned, fixed bin (35)), 

iox_$detach_iocb entry (ptr, fixed bin (35)), 

iox__$close entry (ptr, fixed bin (35)), 

cloek_ entry returns (fixed bin (71)), 

date time entry (fixed bin (71), char (*)), 

ipc_fcutoTf entry (fixed bin (71), fixed bin (35)), 

ipc_$ reconnect entry (fixed bin (71), fixed bin (35)); 

del i fixed bin; /* an index */ 

del (which channel automatic, nomore_channel static) char (32), 
io moHule char (32), 
n dialed fixed bin; 
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ME = "dial handler"; /* For coin_err_ »/ 

/* First oT all, interpret the event message sent from 
the answering service - it should either be that 
someone has dialed in or hung up */ 
call convert_dial_message_$return_io_module ( 
event_info .message, which_channel , 
io_module, n dialed, status_flags, code); 
/* n^dialed s -1 Tf this is an informative 

message (which it is)*/ 

if code *s 0 & 

code *s error_table_$io_no_permission then call ERROR (5); 
/* Log in event */ 

call date time_ (clock_ (), time); 

call ioa Jioa switch (iox $user output, 

""aT "[DIALED UP";HUTIG UP*T AT ''a.", 
which^channel , status_flags.dialed_up, time); 

/* Restart any interrupted io to the master terminal */ 

call iox__$control (iox_$user_output, "start", null (), code); 

if " status_f lags .dial ed_up then do; /• Then it must 
be a hang up and we have to find out which 
device, mark it available, & detach the switch. */ 

do i s 1 to max_num_allowed 

while^Cdialed.sw (i)«devname "s 
which^channel) ; 

end; 

if '^(i > max num_allowed) then do; 

dialeH.no dialed s dialed .no^dialed -1; - 
call ioa fioa switch (iox $user output, 
""9xAt this instant, *i terminal" ; terminals''] *Cis";are"3 logged on.", 

dialed .no^dialed, (dialed.no dialed = 1), 
(dialed, no_dialed si)); 

/* Close and detach the switch */ 

call iox $close (dialed.sw (i).iocb ptr, code); 
if code *s 0 then call ERROR (6); 
call iox_$detach iocb (dialed.sw (i).iocb ptr, 
code) ; 

if code "= error^table $io no permission 
& code "s 0 then call iRROl (7); 
dialed.sw (i).iocb ptr s null (); /* free 
this switch 

end ; 
return; 

end; 
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else if status__flags.dialed_up then do; 
/« Somebody dialed in - get to work on attaching and 
listening to him. As we must update a critical database 
(the structure 'dialed'), let us prevent interruption 
during the update period by 'masking' wakeups on the 
event-call channel 'dial_manager_arg.dial_channel' • */ 

call ipc $cutoff (dial manager arg.dial channel, code); 
if code ^= 0 then call""ERROR (7) ; 

/« Loop until we find a free iocb 
(indicated by a null iocb ptr) , OR 
until we exceed max_num__aTlowed . */ 
do i s 1 to max num allowed " 

while~'( dialed .sw (i)«iocb ptr 
null ()); 

end; 

if "^(i > max__num_allowed) then do; 

/* if there's a switch available •/ 
dialed .devnarae (i) s which_channel ; 
dialed .no_dialed = dialed. no^dialed + 1; 
call ioa_$ioa switch (iox $user_output , 
"''9xAt this instant, ''i ''CterminaT''; terminals'^] '^[is'' ;are*3 logged on.", 

dialed .no^dialed, (dialed .no^dialed = 1), 
( dialed. no_dialed =1)); 

f* Find an iocb for the user and attach user's device 
via tty_ I/O module */" 

call iox_$find_iocb (dialed. sw (i).swname, 
dialed.sw (i) .iocb_ptr , code); 
call ipc_$reconnect 
(dial_ffiarsager_arg.dial_channel , code); 
/* ^afe to unmask */ 

call iox_$attach_ptr (dialed.sw (i).iocb ptr, 

"tty "{{dialed.sw (i).devname, nulT (), code); 
if code s 0 then call ERROR (9); 



call iox $open (dialed.sw (D.iocb ptr, 
3 stream_io »/, 

"0"b, /* unused must be zero */ code); 
if code 0 then call ERROR (10); 
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/* Now that we have attached the user's terminal, call the main 
program that handles these users; it will handle all 
processing for these terminals, and when the user is 
done, it will simply return to me */ 

call listen_to_dial (dialed. sw (i) .iocb^ptr) ; 
return; 

end; 

else do; /* we've run put of switches */ 

if nomore_ptr = null () then do; 

call iox_$f ind_iocb ("nomore", nomore ptr, code); 
/* Nope, we can not avoid this call. 
if code 0 then call ERROR (14); 

end ; 

nomore^channel s which^channel ; 
call iox_$attach ptr (nomore^ptr, 
"tty_ ■'''I ! which_channel, 
null (), code); 
if code *r 0 then call ERROR (15); 
call iox_$open (nomore_ptr, 2, "0"b, code); 

/• Stream output suffices for doomed tty •/ 
if code 0 then call ERROR (16); 
call ioia $ioa switch (nomore ptr, 
"DIAL SYSTEM astra FULL WITH~"i USERS. 
TRY AGAIN LATER.", max num_al lowed ) ; /» SORRY FELLA »/ 

call iox $control (nomore ptr, "hangup", null ()^ code); 
if code *s 0 then call ERlROR (17); 
call iox $close (nomore ptr, code); 
if code 0 then call "ERROR (24); 
call iox $detach iocb (nomore ptr, code); 
if code '^=0 4'" 
code ''r error table_$io no_permission 
then call^ERROR (25T; 
call ipc_$reconnect (dial manager arg.dial_channel , 

codeT; /• SaTe to unmask now */ 

return; 

end; 

end; 

ERROR: proc (error^number) ; 

/* Internal^proc to report errors */ 
del error^number ; 

call com_err (code, ME, "Check call *i of ERROR", error number): 
/* Restart any interrupted To to the master terminal */ 

call iox_$control (iox $user output, "start", null (), code); 
goto FINISH; 
end; " 
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shutoff: entry; 



/♦ This entry point resets the environment: 

1) shuts off dials 

2) zeroes dialed .no^dialed 

3) wipes out iocbs and nulls ptrs. */ 

del dial manager^$shutoff_dials entry (ptr, fixed bin (35)); 

del ipo_fdecl_ev_wait_chn entry (fixed bin (71), fixed bin (35)); 

ME = "shutoff"; 

/» IT IS FIRST NECESSARY TO CHANGE THE EVENT-CALL BACK INTO AN 

EVENT-WAIT CHANNEL, BECAUSE THE shutoff dials ENTRY POINT WILL 
NOT WORK ON ANYTHING BUT. */ 

call ipc $decl ev wait chn (dial manager arg.dial channel, code); 
if code *s 0 tlen^call-ERROR (2l7; 

call dial manager $shutoff dials (addr (dial manager arg) , code); 
if code 0 then""eall ERRT5R (22); ~ ~ 

call ipc $delete_ev_chn (dial manager arg.dial channel, code); 
if code *s: 0 then call ERROR 123); " 

dialed.no^dialed = 0; /* In case we • set_up_dial' again */ 
do i s 1 to max_num_allowed; 

if dialed, sw(i) .iocb ptr ''snullO then do; 

call iox_$close (dialed.sw(i) .iocb ptr, code); 
call iox_$detach_iocb (dialed •sw(i7.iocb__ptr, code); 
call iox""$destroy iocb (dialed,sw( i) .iocb ptr , code); 
/* The'^above caTl automatically NULLS tTie 
iocb ptr. •/ 

end; 

end; 
return; 

FINISH; 

end set_up_dial; 
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listen_to_dial: proc (iocb_ptr); 

/* Procedure to dialog with a dial-up terminal */ 

%include dcl_iox_entries; 

del 

iocb ptr ptr parameter, 
code^fixed bin (35), 

hcs $initiate count entry (char (*), char (*), char (*), 

fixed bin (247, fixed bin (2), ptr, fixed bin (35)), 
(seg_ptr_l, seg_ptr_2) internal static ptr init (null ()), 
(bit count_1 , bit count_2) fixed bin (24) internal static, 

bufr_ptr ptr, " 

buffer char (256) , 

n_read fixed bin (21), 

com_err_ entry options (variable), 

get_wdir_ entry returns (char (168)); 

del 1 info structure aligned, 

2 ev^clian fixed bin (71), 

2 input available bit (1); 
del (addr, after) builtin; 

del ipc $decl__ev_call ehn entry (fixed bin (71), entry, 

ptr, fixed bin, fixed bin (35)'); 
del ipc_$delete_ev_chn entry (fixed bin (71), fixed bin (35)); 

del ioa_$ioa_switch entry options (variable); 

%inelude iocb; /* We need this structure to get the 
attach^descrip^ptr */ 

del 1 attach^deseription unaligned based 

(ioeb_ptr -> iocb. attach descrip^ptr) , 

2 descrip_length fixed bin (357, 

2 desc char (0 

refer (attach^deseription,descrip_length) ) unal; 

call ioa_$ioa_switch (iocb^ptr, 
"Dialed to *astra* on chanriel *a.", 

after (attach^description, desc, " ")); 
if seg_ptr 1 s null () then /* Efficiency technique 
call Hes_$initiate_count (get_wdir_ (), '*ffisg1»*, 
bit_count]^1 , 1, seg_ptr_1 , code); 
call iox^$put^chars (iocb^ptr, seg_^ptr__1 , 

bit'"count 1/9, code); 
if code ''s 0 Then call ERROR; 
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call iox__$control (iocb__ptr, "read_status" , 

addr (info structure), code); 
if code '"s 0 then call ERROR; 
if "info^structure. input available then do; 
/* If no line is available, use 'garden^variety' 
event channel provided to us by »read_sTatus» order */ 

call ipc $decl_ev call^chn (info~structure,ev chan, 
respond__tQ_lTne_later , iocb__ptr, 0, codeT; 
/» iocb_ptr in above call is really our *data ptr» */ 

if code *s 0 then call ERROR; " 

end; 

else call respond_to_line_now (iocb^ptr, 0); /* Else 
there is something out there to read NOW */ 
return; /* so much for listen_to_dial */ 

respond__to_line_later : entry (information^ptr) ; 

del in forma tion^ptr ptr parameter; 

del 1 event_info based ( inf ormation^ptr) , 
2 channel_id fixed bin (71), 
2 message fixed bin (71) » 
2 sender bit (36), 
2 origin i 

3 dev^signal bit (18) unal, 

3 ring bit (18) unal, 
2 data_ptr ptr; 

call respond_to_line_now (event__info,data_ptr, 

event_info,channel__id) ; 
/* But we "ire not sure whether there is a quit or 

null line out there* */ 
return; 

respond_to__line_now: entry (iocb^ptr, read^status^channel) ; 

del read status_channel fixed bin (71) parameter; 

Channel ultimately to be deleted */ 

call iox_$controi (ioeb_ptr, '*read_status" , 

" addr ( info structure) , code) ; 
if code ''s 0 then call ERROR; 
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if info_structure.input_available then do; 
n read =0; " 
buff_ptr = addr (buffer); 
call iox_$get chars (iocb ptr, buff^ptr, 

256 , n^read , code) ; " 
if code "O then call ERROR; 

if n_read > 1 then do; /* If there's something more 
than just a newline, then do... */ 
call iox_$put__chars (iocb_ptr, buff_ptr, 

n^read, code); 
if code '"s 0 then call ERROR; 
if seg_ptr 2 = null () then 

call "Eos $initiate count (get_wdir_( ) , 
"msg2", bTt count_2, 1, 
seg_ptr_2, codeT; 
/* Ignore code, it should be fine */ 

call iox_$put_chars (iocb^ptr, seg_ptr_2, 
bit_count_2/9i code)T " " 

if read_status channel 0 then call 

ipc^ldeleTe^ev^^chn (read_status channel, 

code) ; /• We no longer neeH it */ 
call iox $control (iocb ptr, "hangup", 

null (), codeT; 
if code '^s 0 then call ERROR; 

end; 

return; /* There really is nothing else to do */ 

end; 

else return; /* If no input^available »/ 



ERROR: proc; 



call com_err_ (code, "listen_to_dial" , 

"Truly unexpected."); 
goto return point; /• Intentionally non-local */ 

end ERROR; 



return^^points return; 

end listen_to_dial; 
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1. Subsystem re^iuests that accept pathnames as input may allow 
^the final entrynaroe in the pathname to be a star name. To first 
stermine whether the starname is valid (ie. does not besin or 
end with a period etc.)? the followins routine should be called: 



a. hcs.$star 

b. hcs.$star.l ist 

c. check. star. name, 
d- mat ch.star. name, 
e. none of the above 



2. A free pool of temporary segments available to each user 
makes it possible to use the same temporary sesment more than 
once via the "set. temp. sesments." and "release. temp. sesments." 
routinesF without havins to create one when needed. 



a. temp sess belong to a single procedure when in use 

b. the maKimum size of a temp ses is 16k 

.. the above mentioned free pool is system wide 

d. if all temp segs have been usedr an appropriate error is 
returned 

e. all of the above 



3. A multisesment file is composed of one or more components 

each the size of a segment. 



a. like single sesment filesy any word in a HSF can be specified 
by a pathname and a word offset 

b» the first component of a MSF is named component 0 

c. components are stored in a relational data base with the 
pathname of the MSF 

d. components are identified by consecutive upper case letters 

e. all of the above 
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4. A call to the routine hcs.$status.minf is commonly used to 
distinguish between a sesmentr a directory and a MSF. 
Specifically the return arguments indicate a MSF when: 

a. type is 0 

b. type is 1 

c. type is 2 and bit count is 0 

d. type is S and bit count is nonzero 

e. none of the above 

5. The working directory is the directory in which the user's 
activity is centered and which identifies the user's location 
within the storage system. The directory that becomes the 
working dir when the "cwd" command is given without arguments is 

known as the: 

a. home directory 

b. referencing directory 

c. process directory 

d» default working directory 
e. none of the above 

6. The subroutine "hcs.$set.maK»length" is often used to define 
the size limit of a segment so that an "out. of .bounds" condition 
will be obtained with any too-larse offset. 

aa the normal maximum length of a segment is 255k 

b. the maximum length of a directory is 64k 

c. the maximum length of a directory cannot be changed 

d. system wide maximum lengths can be imposed by the system 
administrator 

e. all of the above 
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7. The "msf-manaser" Multics subroutine creates a File Control 
r'=^lock (fcb) in order to keep track of manipulations on the MSF. 
hich of the followins is true? 



a. the MSF must exist for the fcb to be allocated 

b. the fcb is allocated on the stack frame of the caller 
Ce the fcb is sood throushout the life of the the process 

d. the address of the fcb must be siven for any operation on the 
MSF 

e. all of the above 



8. Many Multics subroutines require an "area-Ptr" to an area in 
which data and information is returned to the user. This is so 
for example with "hcs.$star'* which returns star name matches. 
Areas can be formatted by: 



a. a PL1 declaration specifyins the "area" attribute 

b. the "def ine-area.." subroutine 
"c. the Multics command "create.area** 

di. use of the function "set.system.f ree.area. <)" 



e. ^1 of the above 



9. The subroutine call to "hcs-$star" returns 2 pointers within 
a user provided arear star.entry^ptr and star.names.ptr . The 
star.names.ptr addresses a name ^rr^y of matchins names s 



a. for links 

b. for sesments 

c. for directories 

d. for entries depending uPon the value of "star.select.sw" 

e. none of the above 
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10. The "def ine-area_" subroutine must be provided with the 
address of some place to be formatted into an area. This address 
in the form of a pointers 

a. is provided as arsument 1 of the call to "def ine.area^" 

b. must not be null 

c. is provided within the information structure that 
"def ine.area." must know about 

d. must point to a permanent sesment in the storage hierarchy 

e. none of the above 
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1. If the rins brackets for a particular object segment are 
''k y z> the sesment is resarded as a sate when: 



a« X = y » 2 

b. X < 2 

c. y < 2 

d. X > 2 

e. none of the above 

2. Inner rins procedures are often called by outer rins 
procedures to perform some service. It is necessary therefore 
for the inner rins procedure to know which rins it is working 
for. This rins information known as the "VALIDATION LEVEL" can 
be obtained via: 

a. hcs.^set.rins.brackets 
bm cu.^level.set 



dm cross. rins. 

— e^^-nauB of the above 

3. Many subsystems honor an "e"- request C^iedx calc probe etc.) 
What entrypoint is used in the implementation of this feature? 

a. cu.^senerate.call 

b. cu.$cp 

c» cu.$set.command.procesdsor 

dm cu-*srow«,stack-f rame 

e. none of the above 
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4. Since the "hcs." subroutine is the means whereby the user 
can manipulate rins 0 directory sesmentsr likely rins brackets 
are : 

a. 0 0 0 

b. 0 1 1 

c. 0 0 5 

d. ^ ^ 4 

e. none of the above 

5. The command level intermediary is usually not an active 
procedure unless an abnormal, event (es. condition) occurs and it 
becomes invoked. The procedure responsible for invoking it is: 

a. default error handler 

b. cu.^cl 

Co cu^^set.cl. intermediary 

d. set-to. cl.$unclaimedLsi snal 

e. none of the above 

6. Savins the attachments of the standard I/O switches? 
restoring these attachments to their default state and enterins a 
new loop of reading and executing command lines is part of 
establishing a new command level. This is accomplished bys 

a. the current command level intermediary 

b. the current command processor 

c. the current process overseer 

d. the listener (listen.) 

e. none of the above 
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7. The routine responsible for actually printing the ready 
.Riessase which indicates command level to the user is: 

a. 1 is ten. 

b. cu-.*ready-proc 

Cm cu-.*set-.ready-procedure 

d. cu.$9et. ready. procedure 

e. none of the above 

8. Consider the case of a user <Rin9 ^> attemptins to execute a 
sesment with rins brackets of C3r 3r 4> 

a. a sesment can be in one rins only 

b. the user can only read the sesment subject of course to ACL 
and AIM 

c the user's process cannot execute in rins 3 

the user can execute the sesment with a rins chanse 
e. none of the above 

9. The "hcs-*set-entry-.bound" routine provides the user with a 
method of limitins which locations of a sesment may be tarsets of 
a call. If the entry-bound is to be set for a siven object 
sesment: 

a. the user must have "modify" permission on the containins 
directory 

b. all calls to the sesment must be made to an entrypoint with 
offset less than the entry-bound 

c- the sesment itself remains unchansed 

d.. the default entry bound is 0 

e- all of the above 
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10. The "cross^r ins." io^module which allows cross rins 
attachments of switches: 

a. must be siven the outer rins switchnante as an arsument 

b« is used to attach the inner rins switch to a previously 
eKistins outer rins switch 

'c. enables use of the "cross. r ins. io.$al low.cross" subroutine to 
do cross rins io 

d. the inner rins switch must be open 

e. all of the above 
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1. There is actually a delay between the tiirie a wakeup is 
r eceived and the time the process is notified. It is possible 
iierefore for several wakeups to be queued by the time a process 
is awakened. The priority disposition is as follows: 



a. event wait channels have priority by default 

b» event call channels have priority by default 

c. no priority exists and priority cannot be assigned 

d. no priority exists but priority can be assisned 

e. none of the above 



2. When a process establishes an event call channel: 



a. the process must so blocked on the channel and wait for a 
. wakeup to be received 

b. the channel should be polled via '*ipc.$read_ev.chn" to 
determine whether a wakeup has been received 

. the process should call "timer.manaser.^sleep" for at least 
900 seconds 

da the process may continue executins until interrupted by a 
wakeup on that channel 

e. none of the above 



3. On occasion^ io to the user*s terminal may be interrupted by 

an invoked "ipc-" or "timer„fflanaser«" routine. In order to set 
thinss soins asain? the user should call the "ioK.$control " 
subroutine with the following orders 



a. printer. on 
bo <;uit.disable 

c. start 

d. set.delay 

e. none of the above 
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4- The IOCS which is the supportins structure for a switch^ is 
created and partially initialized by either "iox_$attach>name" or 
"ioK.^attach.ptr " . Thereafter the lOCB is updated and maintained 
by : 

a. the iQ.incdule 

b. the user program 

c. ioK.$look.iocb 

d. continue. to. si anal 

e. none of the above 

5. When "pointer or "entry" variables are to be changed in a 
chain of synonymously attached I0C6*Sr the change must take place 
in the actual lOCB and then reflected in the other lOCB's vias 

a. <module.nafi^e>$<module.name>attach 

b. ioK.$f i nd^iocb 

c. ioK.$move.attach 
dm ioK.^propasate 

e. none of the above 

6. If a switch has been opened for "stream.input " r obviously 
record.io is not supported. This implies that the "entry" value 
for "read.record" in the IOCS would bes 

a. a null pointer 

b. a null character string 

c. ioK.$err. no. operation 

d. err or..table~$no. operation 

e. none of the above 
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7. In order that a process comniuni cate with another^ it must 
now the event channel identifier of a channel created by the 

other process. The former process sets this info from: 

a. user.inf o.$terminal_data 

b. ipc.$read.ev.chn 

c. i pc.$decl.ev.call.chn 

d. ipc-$decl.ev_wait.chn 

e. none of the above 

When a process is awakened on an event call channels control is 
immediately passed to the procedure specified by the 
"ipc.^decl.ev.call.chn" with one argument. This arsument is a 
pointer to a structure that specifies: 

a. the channel-s on which events are beins awaited 

b. information about the event that caused it to return 

. data passed from the procedure that set up the event call 
channel 

dm the machine conditions at the time of the interrupt 
e. none of the aiiove 

8. The one way control path over which notification of the 
occurance of events is transmitted is called an event channel. 
The user obtains an event channel for the purposes of 
inter-'process communication by: 

a. looking up the channel master file (Cf;|F) 

b. looking up the channel definition table <CDT) 

c. making one up 

d. calling i pc.$create.ev.chn 

e. none of the above 
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10. If a user wishes to inhibit readins of events on a 
particular channel but would like to have them <?ueued for later 
handlinsr the followins procedure should be invoked^ 

a. ipc-*cutoff 

b. create. i ps.roask. 

c. i pc.$ihask.ev.cal Is 

d. ipcSblock 

e« none of the above 
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1. Often to ensure that only one process at a time can execute 
critical section of coder that section of code is associated 
«^ith a so-called "lockword" which must be zero (unlocked) and 
into which a process places an identifier (thus lockins it) via 
"set-lock-" routine. If many critical sections of code share the 
same lockword: 



a. an execution time error will result 

b. each section can be executed by a different process at a siven 
time* thus multiplexing the lockword 

c. only one process can execute in any section at a siven time 

d. the lockword will be reset by any process encounterins a 
locked lock from another section 

e. none of the above 



E.. The "lock identifier" placed in the lockword by a process to 
indicate a locked status is a: 



bit strins of 36 binary 1*s 
br. bit strins of 36 binary zeroes 

c. unique value senerated on the fly 

d. a special lock identifier kept in the active process table 
entry for this process 

e-. none of the above 



3. If a procedure that sets up timers by callina entrypoints in 
"timer.manaser." terminates abnormallyp those timers which have 
been set will: 



a. 90 off at some undesired tine 

b. be discarded as the procedure is popped off the stack 

c. cause the process to hana 

d. be reset by the system default condition handler 
none of the above 



SUBSYSTEMS PROGRAMMING 



F15D 



Quiz 4 



4. When an "alrm" or "cput" condition is sisnalleds 

a. the stack is .searched for a user defined on-unit 

b. a static handler is invoked that determines which 
user-specified procedure should be called 

Cm some handler executes and the user's process is returned to 
command level 

dm either internal static storase for the "timer.manaser." 
subroutine has been destroyed or the system is about to crash 

e» none of the above 

5. In order that a process so blocked for a certain period of 
time the followins subroutine should be called. ' 

a» timer.manaser.Ssleep 
bm ipc-$block 

create.i ps.mask. 

d. sus.si snal.handler. 

e. none of the above 

The user.f ree-Ptr stored in the process stack header points 
to the place where based and controlled variables «tc. are 
stored. This is by default the: 

a» process data segment 
tm descriptor sesment 
c» Cuni«iuel} .area. 1 inker 
(£• user rins stack 
s. none of the above 
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7. The process stack sesment is a: 

a. circular linked list 

b. single forward linked list 

c. double threaded list with forward and backward pointers 

d. stack of controlled variables 

e. none of the above 

8. A null pointer has a segment number of« 

a. negative 2 

b. negative 1 

c. zero 

d. "garbage value" that causes a fault tas~E 

e. none of the above 

9. The standard descriptor that complements the standard 
argument list indicates the argument data type to be an "offset" 
if the TYPE field has a value of 

a. 16 

b, 17 

c- 18 * 

d. 19 

e. none of the above 
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10. The "cds" software used to build data sesments for the user: 

a. creates a file in standard object format 

b. enables users to reference data ' usins the format 
<data.se9>$<data.item> 

c. requires as input a pointer addressins amons other things the 
name of the data sesment 

d. invokes the PL1 compiler when the user issues the "cds" 
command 

e. all of the above 
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1. Copy the segment >udd>F15D>s1>STATUS.pl1 . This is the source code 
for the program that was discussed in Topic 2. Alter this program 
so that it will: 

— accept the star conventio n 

— print out the link target if it is a link 

2. When calling(^hcs_$starj^^u must pass it a pointer to an area. 
Rather_ihan usTng geL_5iy^tem_free_area_, create an are's using the 

C gef ine area^ subroutine . Have ^def ine "^rea obtain a seg rg^n t for 
the area from the temporary segment^pool . Uaice^th^ area freeing , 
•^zero^on^free , extensible with a size of^O wor ds. (^^?ass hcs_$star_ 
'a pointer to that area, ■ — — 



Part of this workshop is to look at the contents of the area you 
have created. Therefore, contrary to good programming practice, 
do not free the structures jallocated in the area by hcs $star . 



3. Test out your program. Be sure to test its ability to accept star 
names. As a final test give your program the argument, **. Use 
the list_temp_segments command. The last temp segment will be the 
area you just created. Use the area status command with the -long 
argument to examine the contents oT the area. (The area_status 
command will accept a segment number for an < argument, therefore, 
you can avoid typing the screech name) . 

You will probably want to use the following declarations which are 
in >udd>F15D>s1>include>w1.incl.Dn. 
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del hcs $get_link__target entry (char(*), charC*), charC*), 

char(»), fixed bin(35)); 
del eheck__star_name_$entry entry (charC*), fixed bin(35)); 
del hcs_$starj"entry (char(*), char(*), fixed bin(2), ptr, 

fixed bin, ptr, ptr, fixed bin(35)); 
del star_entry_eount fix«d bin; 
del star_entry_ptr pointer; 
del star__names_ptr pointer; 

del 1 star^entries (star_entry_count) aligned based (star entry^ptr), 
2 type fixed binary (2) unsigned unaligned, " 
2 nnames fixed bin (16) unsigned unaligned, 
2 nindex fixed bin (18) unsigned unaligned; 

del star^names (sum (star__en tries (♦). nnames)) char (32) 
based (star^names__ptr) ; 

del def ine_area__ entry (ptr, fixed bin(35)); 
del area_info_ entry (ptr, fixed bin(35)); 

del area^infop ptr; 

del 1 area info aligned based (area_infop) , 

2 version fixed bin, 

2 control aligned like area^control , 
2 owner char C32) unal, 

2 n components fixed bin, /* returned only */ 
2 size fixed bin (18), 

2 version of__^area fixed bin, /* returned only */ 
2 areap p^r,"" 

2 alloeated_biocks fixed bin, 
2 free_bloeks fixed bin, 
2 allocated^words fixed bin (30), 
2 free_words fixed bin (30); 

del 1 area_control aligned based, 
2 extend bit (1) unal, 
2 zero_on_alloe bit (1) unal, 
2 zero_on_free bit ( 1 ) unal , 
2 dont_free bit (1) unal, 
2 no_freeing bit (1) unal, 
2 sy'stem bit (1) unal, 
2 pad bit (30) unal; 
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Changing the Command Environment 



The command environment can be shaped in several ways by using cu_ 
entry points o In this workshop, you will write a procedure which will 
•intercept* commands before they get to your usual command processor, 
and by so doing, restrict yourself to a limited set of commands. In 
addition, your own version of a ready procedure will be installed. 



In order to use some internal static variables it is recommended that 
you write just one procedure with alternate entry points. Your procedure 
should have the following skeleton: 

change_env: proc; 

<declarations> 

<code to save entry value of current command processor 
and install interceptor and new ready procedure> 

restore__cp; entry; 

<-code to reinstall the command processor whose entry 
value you saved> 

my_ready: entry; 

<code for new ready procedure> 
comraand^interceptor : entry (a^line^ptr, a^line len, code); 

<code for your command interceptor> 
end change env; 
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t. The *iny ready' entry point should determine if you are in 'ready 
on' mode. If so, it should output the following line: 

'Next Command: ' 

You should not append a new-line character at the end of this 
•ready message' • 



2. The ' command^interceptor' entry point will intercept commands before 
they get " to your usual command processor (typically 
»command_processor_' or 'abbrev '). It should examine the a_line 
to determine whether the commancTline contains any of the following 
commands: 

new proc 
logout 
probe, pb 
exec^com, ec 
r*eady^on, rdn 
ready^off , rdf 
restore^cp 

If one of these commands is input to command_interceptor , it should 
pass the parameters along to whatever was the previous command 
processor. If any other command is input, the command_interceptor 
should print out a message informing the user that the command is 
not allowed, and should then return. 



3. The 'change_env» entry point should establish command^interceptor 
as the current command processor and the my_ready procedure- as the 
current ready procedure. Note that this procedure should first 
determine the value of the current command processor and make that 
value available to the 'command^interceptor* and 'restore_cp« entry 
points. 



4. The 'restore_cp' entry point should restore your usual command 
processor environment (ie. disable the activity of 
command interceptor) • 



Test out your solutions by executing 'change_env' • You should now be 
running under the modified command environment. Try typing some 
disallowed commands and some allowed commands. Especially observe the 
behavior of ready on and ready^off. Verify your ability to return to 
your usual command" processor environment by executing 'restore_cp' . 

You will probably want to use the following declarations which are in 
>udd>F15D>s1>include>w2.incl.pll. 
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del a_line_ptr ptr; 

del a_line_len fixed bin (21); 

del a_line char ( a_line__len) based (a_line__ptr) ; 

del com_err__ entry options (variable); 

del (ioa $nnl, ioa__) entry options (variable); 

del (ItrTm, rtrim, substr, index, null, codeptr) builtin; 

del eu_$set_ready_procedure entry (entry); 

del cu3g®t_co™ro3nd_processor entry (entry); 

del cu_$set_eommand_processor entry (entry); 

del cu__$get_ready_mode entry (1 aligned, 2 bit (1) unaligned, 

~ 2 bit (35) unaligned); 

del old_eommand__processor entry variable options (variable) 

internal static; 
del command processor $eommand processor entry (ptr, 

fixel bin (21), fixed bin (35)); 

del 1 mode aligned, 

2 ready_sw bit (1) unaligned, 

2 mbz bit (35) unaligned; 
del code fixed bin (35); 
del end fixed bin (21); 

del test_string char (80) init (" new_proc logout probe pb exee_com 
ec ready^on rdn ready^off rdf restore^cp ") "~ 

~ internal static options (constant); 
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change_env: proc; 



/* Variable and subroutine declarations */ 



/* Get old command processor and old ready procedure and 
store them in internal entries */ 

/* Set the new command processor and new ready 

procedure. These both are entries which are internal 
to procedure 'change_env' */ 

/* Pop the *change_env* frame off the stack via a 
'return* statement */ 

my_ready: entry; 

/* 'my_ready' is the entry specified above in the 

subroutine call to set the new ready procedure */ 

/* check the value of the 'ready_sw'. If ready__sw is 
true ("l"b) then print your ready message */ 

/* pop the frame off the stack */ 

restore_ready : proc; 

/* ' restore__ready ' should simply make a call to the 

appropriate subroutine to set the ready message back 
to the entry value that was stored above */ 

/* Pop the frame off the stack */ 

command_interceptor J entry (a__line__ptrr a^line^len, code); 

/* • command_interceptor • is the entry specified above in 
the call to the subroutine to set the new command 
processor */ 

/* Process the command. If it is a valid command, i.e. 
is a command contained in the variable ' test__string ' , 
then pass the command to the subroutine which 
accesses the default command processor , Otherwise 
print an error message */ 

/* Pop the frame off the stack */ 

restore_cp: entry; 

/*• »restore_cp' should simply make a call to the 

appropriate subroutine to set the command processor 
back to the entry value that was stored above */ 

/* Pop the frame off the stack */ 
end chajnge__env ; 
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Synonyming and IOCS' s 



Use the command » io^call print^iocb <switchname> V to examine the 
lOCB's for user_i/6", user^input, user output and error^output. 
Verify that the diagram showing synonyming at the end of Topic 6 
is correct. 

Look at the declaration of an 'IOCS' in Topic 6« List the structure 
members where a synonymed switch's lOCB may differ from the lOCB 
of the switch to which it is synonymed, assuming no inhibition in 
effect. There are 7 of them. 



3. Refering back to part 1 , look carefully at the entry value for 
iocb.put_chars for all four switches examined. Try doing a 'io call 
put_^chars <name> hello' using each of the four switches. You sHould 
be able to explain exactly what happened, in terms of what lOCB's 
were referenced, what arguments were passed to which entry point 
of which I/O module and how the code in that module caused the 
observed result. If not, ask your instructor. 

What will happen if you execute ' io call close error output'? Try 
it. 

4. Detach user__output . Attach it using the syn^ module, however, 
this time inhibit the close I/O operation. ~ 

'io_call attach user^output syn_ user_i/o -inhibit close' 

Use io^call to examine the lOCB for user output. What two places 
do you see evidence that the close operation has been inhibited? 

Try to close user^output. 

Using io_call is an excellent way to learn about and test the Multics 
I/O mechanism. In any remaining time, feel free to experiment, but be 
aware of the fact that you may get yourself into some situations which 
require that you hang up the phone to get out of them. 
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An Interprocess Communication Workshop 



The interprocess communication facility is used to coordinate processing 
between separate processes. In this workshop, you will design and 
inplement a procedure which will communicate with the instructor's 
process as follows: 



Write a pl1 procedure called * get_message.pl1 * which will: 

1) Create an event-call channel specifying that the procedure entry 
point * reverse^me ssage' is to be invoked when, a wakeup is received 
on the event-c all channe l .~~~The handler~called * reverse^message* 
will be*~an entry poinC" in the ^get__message* procedure itself 
(see step 3 below) . 

2) O btain the process id and channel ed of the instructor _!_s event_call 
chan nel by i nitiatTng the segment >udd>F15D>s1>channel_info and 
using" the following structure: 

■) del 1 channel_info_pverlay based ( channel^in fo^ptr ) , 

/ 2 process_id bit(36), — ""^ ^-^^ — 

^ 2 channel_id fixed bin (71); ior loc-*^ o.-f ^vowl- 

Using this information, send a wakeup to the instruc tor's process 
providin g the channel id of your event_^call channel as the 

•messaj " 



3) Your,JL re verse message* handler will b e Invoke d when the_ln.&trjuQtorLs 
processs ends y o ur proce ss ajWQ^^^P* This handler should In terpre t 
rae ' ;yssage * ~Trom ttie instructor as a * char(8) *_ string; the' 
handle? should jrever se this stri ng (the pll 'reverse' builtin 
function can be used) and finally, your process should send another 
wakeup to the instructor's process using the reversed string as 
the 'message' . 

Note that the instructor's process will be able to determine whether 
or not you have successfully accomplished the task. If you have, you 
will receive immediate notification from the instructor's process (via 
' send_mail_» ) o Therefore, make sure you are in 'accept message' mode 
prior to testing your solution. In addition, use the 'who' command to 

to testing your solution. 

You will probably want to use the following declarations which are in 
>udd>F15D>sl>include>w4.incl.pl1 . 
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del (ioa__, com_err__) entry options (variable), 

< hcs_$wakeup entry (bit (36), fixed bin (71), fixed bin (71), 

fixed bin (35)), *^ 

ipc_$create_ev_chn entry (fixed bin (71), fixed bin (35)), 

^ipc__$decl_ev_call_chn entry (fixed bin (71), entry, ptr, fixed bin, 

fixed bin (35)), 
— -^hcj_4>iiiii>i^te euli^ (Uiar ( » ), ahar (•) ■ , ■ char (*), 

f 4 HG<i bin (1), fixed Diu (2), ptr, fixed bin (35)),- 
ho3^ $tQrminate_nonamfi f^n try ( pt -r -, fixed bin (35)); — 

del my_chid fixed bin (71), 
c^ptr ptr static, 
i_ptr ptr, 

code fixed bin (35); 

del 1 channel^^info based (c^ptr), 
2 his_pid bit (36), 
2 his_chid fixed bin (71); 

del 1 event info based (i_ptr), 
2 channel^id fixed bin (71), 
2 message^f ixed bin (71), 
2 sender bit (36), 
2 origin, 

3 dev^signal bit (18) unal, 

3 ring bit (18) unal, 
2 data^ptr ptr; 

del (null, reverse) builtin; 
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Timers 



Write a program called loclugll that implements the following ficticious 
command : 



US AGE; J .ock {-min mij^ute^sj l^cfe; " V}^!^ ^ 

FUNCTION: Pnom^xts. the user for a password and locks the 
user's terminal for the number of minutes specified 
(default - 10 minutes). To regain cn ntrni of the terminal 
the user hits the break key and is afrain prom pted for the 
passw ord. If he does not supply the collect password, the 
term inal remains locked . - i <^^^c.^rvr^1~ pJO^tf^^Ts^^ 

When the t^e specified e jcpire s, the user is logged out « 

NOTES: This command prints ou t the following messagej 

— >> It is MM/DD/YY hhmm.m zzz www. 

-^This terminal is locked, please find another terminal. 

This message is printed out when lock is first invoked and 
every 5 minutes thereafter. 



Essentially your program should go to sleep for a specified length of 
time. However, during that period, you must also repeat the message 
every 5 minutes. 

This command takes either 0 or 2 arguments. 

For the sake of debugging you should probably use a time interval 
shorter than 5 minutes and rather than logging out the user, simply 
print some message. 
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Sample terminal session: 

! lock -min 20 
Password: 

! <• user supplies password 

It is 07/21/81 0812.2 mst Tue, 

This terminal is locked, please find another terminal. 

It is 07/21/81 0817.2 mst Tue . 

This terminal is locked, please find another terminal. 

I <QUIT> 
Password: 

! <- user gives wrong password 

Incorrect password given. 

It is 07/21/81 0822.2 mst Tue. 

This terminal is locked, please find another terminal. 
It is 07/21/81 0827.2 mst Tue. 

This terminal is locked, please find another terminal. 

! <QUIT> 
Password: 

! <- user gives correct password 

Terminal unlocked. 



! lock -min 1 
Password: 

i 

It is 07/21/81 0905.1 mst Tue, 

This terminal is locked, please find another terminal. 

The lock time for your terminal has expired. 
You will be logged out. 

NDibble MED logged out 07/21/81 0906.3 mst Tue. 

CPU usage 12 sec, memory usage 97*3 units, cost $3.55. 

hangup 



You will probably want to use the following declarations which are in 
>udd>F15D>s1>include>w5.incl.pl1. 
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dcl' ^cu Sarg count entry (fixed bin, fixed bin(35)); 

dGl ^u_$aFs~ptr e ntry (fixed bin, ptr, fixed bin(21), fixed bin(35)); 

dcl^nargs; 

dcl-^aptr ptr; 

del-- arg char( arg__length) based (aptr); 
dcl^^ar^^^l^ 

dcL^read_password_ entry (char(*), charC*)); 
^dcl^ .timer ma na&j?r $ ^eep entry (fixed bin(71), bit(2)); 
dol^ timer j7ianager_$alarm _call entry (fixed bin(71), bit(2), entry); 
del jimer~manager~$'*gs^t~ a3.arro call entry (entry); 
dcl-^ime Tixed bin(71) init (1^); 

del cv__dec_check_ entry (char(*), fixed bin(35)) returns( fixed bin(35)); 
dcla^quit condition; 

dcl'Clock_ entryO returns( fixed bin(71)); 
del 'date__time entry (fixed bin(71), char(*)); 
dcl-< passwordT, pas5word2) char (8); 
dcl^ode fixed bin(35); 

del -(coro_err_, ioa__) entryO options(variable) ; 
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Generating Calls and Creating Status Tables 



1, Write a procedure called » ple3se_execute»pl1 » which will ask the 
user, "What do you want me to execute for you? **. The user may 
then respond with an entryname. The entryname could be a command 
or a user written program. To keep things simple, no arguments 
are allowed (ie. the user may respond 'list', but not 'list -d'). 
Also, you may assume the user's response is both the entryname and 
the entry point name. Your program should then generate a call to 
execute the user's request. 

To save time, you will probably want to make a copy of the segment, 
>udd>F15D>s1>generate_pwd,pl1 and simply edit in the necessary 
changes. 



2« Try out your procedure responding with commands such as »pwd', 
•hmu' and 'list'. Then use it to execute some simple programs you 
have written or copied into your working directory during this 
course. You might even like to ask • please^execute' to execute 
•please execute'. 



3. Ask 'please execute' to execute the »list» command and when it 
starts to fist your segments, hit the break/ quit/ interrupt key. 
Use the 'stack* request from within 'probe' to examine the user 
stack. ■ " ~ 



NUMBERS 4 AND 5 ARE OPTIONAL 



4. Next ask » please^^execute' to execute some program that does not 
exist (make up a name). Notice the error message returned when 
your program calls com err . 



5. Create a status table and alter your program so that when you ask 
your program to execute a program that does not exists it will 
still call com_err_, however, it will not behave as in part 4. 
Instead it should print some other error message (one you have 
made up and put in a status table you have built). 
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The Limited Service Subsystem 



In workshop two you modified the user's environment such that only 
certain commands were acceptable. Utilize the *enter_lss* command to 
achieve the same result. The following list of commands should be 
accepted (you may expand upon this list if you want to): 

new__proc 
logout 
probe, pb 
exec^com, ec 
ready on, rdn 
ready^off, rdf 

Test your solution. 
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COMPIUTION LISTING OF SEGMENT pfgu 

Compiled by: Multloa PU/I Compiler, Release 25c, of February 18, 1980 
Compiled at: Honeyweljl L|SD, Phoenix,, System M 
' Compiled on: 03/19/80 .10(13.5 nst Wed 
Options: map, 

1 find: proo (last name, first name, emp struo, oode); 

2 - - - 

< 3 /* Modified by R. Frommer on June 12, 1979 to do elegant ORlng, reference mode bits directly, and us^i -extend option */ 
H /» THESE DECLARATIONS SHARED BY BOTH ENTRYPOINTS «/ 

5 

6i del aos names^array (>!) ohar (32) Internal static options (constant) 

7 inV^ (*'soc_seo no.acs**, *'manager .acs" , "mall statlon.aos" , " salary, aos** ) ; 

6 del access allowed^Cit) bit (1): ~ 

9 del aooess'allowed overlay blt(4) unaligned defined (access allowed); 

10 del dir name char Tl68); 

11 del user id ohar (J2); 

12 del ring"fixed bin (17)| 

13 del mode fixed bin <5); 

14 del 1 bit mode struo aligned based (mode ptr) , 

15 2 pad^bit T30) unaligned, 

1(> 2 two bits b'it(2) unaligned, /• don*t care •/ 

17 2 reaH^ bit (1) unaligned, /* On If read effective access */ 

IB 2 fourth bit (1) unaligned, /• don't care •/ 

19 2 write blt(1) unaligned; /* On If write effective access */ 

20 del ME char (4); 

21 del find bit (1); 

22 del 1 emp^struc, 

23 2 soo_sec_no pic ''(9)9''9 
2^4 2 manager^plo **(9)9'', 

25 2 mail station ohar (3), 

2iS 2 salary fixed dec (8, 2); 

> 27 del (oode, dummy oode) fixed bin (35); > 

28 del (first__name,~'last name) ohar (15); 

29 del (substr, null, ad?r, size, rtrlm) builtin; 

30 del error_table__$moderr ext static fixed bin (35); 

31 del error^table $no record ext static fixed bin (35); 

32 del 1 fixed blnj " 

33 del (ioobp, node ptr) ptr init (null ()); 
del unused rec Ten fixed bin (21); 

35 del old level Tixed bin; 

36 "* 

1 del 

2 iox lattaeh ptr entry (ptr^ ehar(*), ptr, fixed bin (35)) » 

3 lox"$attaeh'~name entry (oharC*), ptr. char(»), ptr^ fixed bin (35)), 
U iox^$elose entry (ptr, fixed bin (35)) « 

5 iox'"$control entry (ptr, ohar(«), ptr, fixed bin(35))t 

6 iox"$delete record entry (ptr, fixed bin(35)), > 

7 iox'~$detaoh~'loob entry (ptr, fixed bin(35)). 
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1 8 iox_$flnd_iocb entry (ohar(»), ptr, fixed bin(35)), 

1 9 lox $get chars entry (ptr^ ptr , fixed bin(21), fixed bin(21), fixed bin(35))» 

V 10 iox~$get_line entry (ptr^ ptrp fixed bin(21), fixed bin (21), fixed bin (35)), 

1 11 iox~$raodes entry (ptr, ohar(*), ohar(»)5 fixed bin (35)), 

1 12 iox~$move__attach entry (ptr, ptr, fixed bin(35)), 

1 13 lox_$open entry (ptr, fixed bin, bit(1) aligned, fixed bin(35)), 

1 1i» iox_$position entry (ptr, fixed bin, fixed bin(21), fixed bin (35)), 

1 15 iox_iput chars entry (ptr, ptr, fixed bin(21), fixed bin(35)), 

1 16 iox $rea3 key entry (ptr, ohar(256) varying, fixed bin(21), fixed bin (35)), 

1 17 iox~$read''length entry (ptr, fixed bin(21), fixed bin(35)). 

1 18 iox~'$read~~reoord entry (ptr, ptr, fixed bln(21), fixed bin(21), fixed bin (35)), 

1 19 iox""$rewrTte record entry (ptr, ptr, fixed bin C21), fixed bin(35)), 

1 20 iox'^seek key entry (ptr, ohar(256) varying, filled bin(21), fixed bin(35)), 

1 21 jlox~'$write record entry (ptr, ptr, fixed bin(21), fixed bin (35)), 

1 22 iox'~$destroy ioob entry (ptr, fixed bin(35)); j 
37 

38 I 

39 del ou_$level get entry (fixed bin); i 
110 del ou tlevel^set entry (fixed bin); ! 
Ml del get ring^-entry () returns (fixed bin (3)) J 

il2 del hos'~$get_user effmode entry (char (•), chair (•), ohar (•), fixed bin, fixed bin (5), fixed bin (35)); 

13 del get^group id |tag star entry () returns (char (32)); 

JUI 

nS ME s "find"; 

46 find 8 "1"b; 

l|7 goto COMMON CODE; 

48 

i|9 put: entry (last name, first name, emp struo, code); 

50 ME a "put";"" 

51 find a «»0"b; 
52 

53 COMMON CODE: 
51 

55 call ou $level get (old^Ievel); 

56 ring « get_ring__ (); "* 

57 oall eu $level set (ring); 

'58 

59 code a 0; 

60 

61 dir__name = «>udd>F15d>s1" j 

62 user id s get group__id $tag star (); 

63 caliches $ ge fuse r_eff mode Tdir_name, "emp", uaer^ld, ring, mode,, code); 
6ii if code ''''a 0 ¥hen go to return point; "" 

65 mode ptr » addr (mode); " 

66 if " 

67 ("find & "(bit_mode struc.read & bit_mode_struo.write) ) t /* if put, we must have read and write on emp »/ 

68 (find & "'bit__mode__s'Eruo.read) then do; " /* If find, we must have read on emp */ 

69 code s error~table_$moderr ; 

70 goto return point;"" 

71 end; 
72 

73 /* If we get here, then it must be the case that we have status on 

7U» our current working directory. »/ 

75 

76 /* Obtain the effective access on the access control segments of interest */ 
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77 
78 
79 
80 
8t 
82 

83 
84 

85 /» 

86 

87 

88 

89 

90 

91 

92 

93 

9'* 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 



do i s 1 to itr 



/* Once for each access control seg */ 



end; 



call hcs_$get user effmode (dir_name; aos naroes^array (1), user^ldi ring, mode, code); 
If find then aocesi_allowed (1) = blt__inode_struc.read; 
else access__allowed (1) s blt_niode__st rue. write; 



ONE OF TWO BLOCKS OF CODE, DEPENDING UPON ENTRYPOINT TAKEN... »/ 
if find then do; 

if access^allowed overlay then do; /* elegant ORing */ 

call iox $find_ioob ("erap sw", iocbp, code); 

call iox-iattach ptr (iooBp, "vfile |i rtrim Cdir name) IS '•>emp"g null (), code); 
call idx^open (Tocbp, 11 /• direot""input •/, «0»b, code); 

call iox__iseek_key (iocbp, (last^name II f irst^name) , 1 * size (emp_struc), code); 
if code s 0 then do; "* 

call iox $read record (iocbp, addr (emp struo), 4 *size (emp struc), unused reo len, code); 

if *acceas_al lowed (1) then soo^sec^no s" 0; " 

if '^aocess__al lowed (2) then man'ager'~x 0; 

if "access^allowed (3) then nail station s 

if ''acces3_al lowed (4) then salary a 0; 
end ; "" 

else; /* else nothing */ 

call iox dolose (iocbp, dummy_oode){ 

call iox'^ldetaoh ioob ( iocbp, "dummy^code) ; , 

goto return poin'F; " /* To reset validation level "/ 



end; 
else oode a 1 ; 



/* This special oode indicates that no fields were accessible 



108 
109 
110 
111 
112 

Ncthem are wrlte-able */ 

113 
114 I 
115 
116 
117 

\cuc), code); 
118 

1119 
120 
121 
122 
123 
124 
\oble •/ 
125 

126 /• 
127 



end; 

else do; 



if aooess^^allowed (1) & aooess^al lowed <2) & aooess^allowed (3) & aooess^al lowed (4) then do; /" If all of 
oall iox Ifind ioob ("emp sW^, ioobp, oode); 

oall iox~iattaoh ptr (ioo^p, **vflie " 11 rtrim (dir name) \\ ">emp -extend**, null (), oode); 
oall iox^^open (Iocbp, 12 /* direot'output */, *'0*'b,''oode) ; 

oall iox~|seek_key (ioobp, (last^nane || f Irst^name) , 4 « size (emp__struo) , code); 

if oode M erroF^table^^no^^reoord'then oall ibx^Mrite^record (ioobpT addr (emp__struo) , 4*size (emp_str 

oall iox $olose (iocbp, dummy oode); 

oall iox3[$detaoh ioob ( ioobp, "dummy^oode) ; 

goto return poinlE; ' 



end; 

else code s 1; 



FALL THROUGH TO return point •/ 
end; ~ 



/* This special code indicates that some fields were inacoessi 
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128 

129 return_polnt: 

130 ~ call ou $level set (old level); 

131 end find; 
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SOURCE FILES USED IN THIS COMPILATIOM. 

LINE NUMBER DATE MODIFIED NAME 

0 07/19/79 1110.0 pfgu.pll 

37 1 02/13/79 17U.^ del lox entriea.lnol .pll 



pfgu.llst 



PATiiNAHE 

>user dlr dlr>F15D>Student 01>pfgu.pl1 
>u8er''dir''dir>F15D>Stud«nt''01>dol lox entries.lnol.pll 



"age ? 



NAMES DECLABED IN THIS COMPILATION. 
IDENTIFIER OFfSET LOG STORAGE CLASS 



DATA TYPE 



NAMES DECLARED BY DECLARE STATEMENT, 



ME 

aocess^allowed 

aooess allowed^overlay 
acs names array 
addr " 
bit mode^struo 
oode 

cu_$lovel_get 
ou3[$level set 
diF_narae " 
dummy code 
emp__s¥ruo 

error_table___$raoderr 
error''table""$no record 
find ~ " 

first name 

get group ld_$tag_star 
get~rlng " "* "" 

hcs Iget^user effmode 

^ - - - 

loobp 

iox_$attaoh_ptr 

lox^iolose 

lox^detaoh loob 

lox_$flnd_ioob 

lox^iopen*" 

iox~$read record 

lox_$seek~key 

lox^iwrlte^reoord 

las^^name 

mall^atatlon 

manager 

mode 

mode ptr 

null~ 

old level 

rea^T 

ring 

rtrlm 

salary 

size 

8oo^8eo_no 
unused Fec__Ien 
user__lcr 
write 



4(18) 
2(09) 



000165 automatic 

000100 automatic 
... 1 

, defined 
000000 constant 

based 
parameter 

00003't constant 
000036 constant 

000101 automatic 
000167 automatic 

parameter 

000010 external static 
000012 external static 

000166 automatic 
parameter* 

OOOOt^ constant 
000040 constant 
000042 constant 

000170 automatic 
000172 automatic 

000011 constant 
000016 constant 

000020 constant 
000022 constant 

000021 constant 
000026 constant 
000030 constant 
000032 constant 

parameter 
parameter 
parameter 
000161 automatic 

000171 automatic 



000177 automatic 
0(32) based 

000163 automatic 

6 parameter 

parameter 
000176 automatic 
000153 automatic 



0C31) 



based 



chard ) 
blt(l) 

blt(l) 
ohar(32) 

builtin function 
structure 
fixed bin(35|0) 

entry 

entry 

char (168) 

fixed bin(35,0) 

structure 

fixed bin(35,0) 

fixed bin(35|0) 

bit(l) 

char(15) 

entry 

entry 

entry 

fixed bin(17»0) 
pointer 

entry 

entry 

entry 

entry 

entry 

entry 

entry 

entry 

char(15) 

char(3) 

plcture(9) 

fixed bln(5,0) 

pointer 

builtin function 
fixed bin(17|0) 
bitd) 

fixed bin(17tO) 
builtin function 
fixed dec(8,2) 
builtin function 
plcture(9) 
fixed bin(21,0) 
char(32) 
blt(1) 
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ATTRIBUTES AND REFERENCES 
indicates a set context) 



unaligned del 20 set ref 15* 50* 

array unaligned del 8 set ref 81* 82* 89 89 96 97 98 

99 112 112 112 112 
unaligned del 9 ref 89 
initial array unaligned del 6 set ref 80* 
del 29 ref 65 95 95 117 117 
level 1 del 11 

del 27 set ref 1 19 59* 63* 61 69* 80* 90* 91* 92* 
93* 91 95* 107* 113* 111* 115* 116* 117 117* 121* 

external del 39 ref 53 

external del 10 ref 57 129 

unaligned del 10 set ref 61* 63* 80* 91 111 

del 27 set ref 102* 103* 118* 119* 

level 1 unaligned del 22 set r«f 1 19 93 95 95 95 
116 117 117 117 

del 30 ref 69 

del 31 ref 117 

unaligned del 21 set ref 16* 51* 66 66 81 87 

unaligned del 28 ref 1 I9 93 116 

external del I3 ref 62 

external del 11 ref 56 

external del 12 ref 63 80 

del 32 set ref 78* 80 81 82* 

initial del 33 set ref 33* 90* 91* 92* 93* 95* 102* 

103* 113* 111* 115* 116* 117* 118* 119* 
external del 1-1 ref 91 111 
external del 1-1 ref 102 118 
external del 1-1 ref 103 119 
external del 1-1 ref 90 113 
external del 1-1 ref 92 115 
external del 1-1 ref 95 
external del 1-1 ref 93 116 
external del 1-1 ref 117 
unaligned del 28 ref 1 19 93 116 
level 2 packed unaligned del 22 set ref 98* 
level 2 packed unaligned del 22 set ref 97* 
del 13 set ref 63* 65 80* 

initial del 33 set ref 33* 65* 66 66 66 81 82 
del 29 ref 33 33 91 91 111 111 
del 35 set ref 53* 129* 

level 2 packed unaligned del 11 ref 66 66 81 
del 12 set ref 56* 57* 63* 80* 
/ del 29 ref 91 111 
level 2 del 22 set ref 99* 
del 29 ref 93 95 116 117 

level 2 packed unaligned del 22 set ref 96* 
del 31 set ref 95* 

unaligned del 11 set ref 62* 63* 80* 
level 2 packed unaligned del 11 ref 66 82 
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NAMES DECLARED BY DECLAnt 


STATEMENT AND NEVER REFERENCED. 






lox_$attach name 


000000 


constant 


entry 


external 


aci 1— 1 


iox_$controT 


000000 


constant 


entry 


external 


del 1-1 


lox $delete__record 


000000 


constant 


entry 


external 


acl 1-1 


lox_$de3troy_iocb 


000000 


constant 


entry 


external 


A ^1 4 4 

del 1-1 


lox_$get_ohars 


000000 


constant 


entry 


external 


del 1-1 


iox_$get_line 


000000 


constant 


entry 


external 


del 1-1 


lox $mode:( 


000000 


constant 


entry 


external 


del 1-1 


lox_$move attach 


000000 


constant 


entry 


external 


del 1-1 


iox_$posl1;ion 


000000 


constant 


entry 


external 


<4 n 1 4 4 

aCl 1-1 


lox_$put ohars 


000000 


constant 


entry 


external 


del 1-1 


iox"$rea3i key 


000000 


constant 


entry 


external 


del 1-1 


iox_$read'"length 


000000 


oonstant 


entr y 


external 


del 1-1 


lox $rewrTte reoofd 


000000 


constant 


entry 


external 


dol 1-1 


aubstr ~ 






bulltln function 


del 29 




NAMES DECLARED BY EXPLICIT 


CONTEXT. 










COMMON CODE 


0001M5 


constant 


label 


del 53 ref 47 


find 


000117 


constant 


entry 


external 


del 1 


put 


00013»» 


constant 


entry 


external 


del 49 


return_polnt 


001200 


constant 


label 


del 129 


ref 64 70 



THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. 



STORAGE REQUIREMENTS FOR THIS PROGRAM. 



Start 
Length 

BLOCK NAME 
find 



Object 

0 

1700 



Text 
0 

1214 



Link 
1414 
46 



Symbol Defs 
1462 1214 
201 200 



STACK SIZE TYPE 

233 external prooedure 



STORAGE FOR AUTOMATIC VARIABLES. 



STACK FRAME 
find 



LOC IDENTIFIER 

000100 aecess__allowed 

000101 dir name 
000153 user" id 

000163 ring"" 

000164 mode 

000165 ME 

000166 find 

000167 dummy code 
000170 i " 
000172 iocbp 
00017»» mode__ptr 

000176 unused reo len 

000177 old^level ~ 

THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM, 
alloc^cs oat_realloc__os oall_^ext__out_desc 

ext entry — — — 



Static 
1424 
0 

WHY NONQUICK/WHO SHARES STACK FRAME 
is an external procedure. 



BLOCK NAHE 

find 

find 

find 

find 

find 

find 

find 

find 

find 

find 

find 

find 

find 



call ext out 



return 



shorten stack 



THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. 

cu__$level_get ou__$Ievel_set get_^group id $tag star 

hci__$get user_ef fmode iox_$attach__ptr iox]2$olose 

lox_$f ln3'_iocb iox_$open ~" lox~$read record 

lox_$write_record " . ~ 

THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM, 
error table $moderr error table $no record 



LINE 


LOG 


LINE 


LOG 


LINE 


LOG 


LINE 


LOG 


LINE 


LOG 


33 


000105 


1 


000112 


45 


000125 


46 


000127 


47 


000131 


51 


OOOIII 


53 


000145 


56 


000154 


57 


000165 


59 


000174 


63 000210 


64 


000250 


65 


000254 


66 


000256 


69 


000303 


80 


000314 


81 


000352 


82 


000362 


83 


000367 


87 


000371 


91 


000422 


92 


000507 


93 


000532 


94 


000570 


95 


000574 


98 


000641 


99 


000651 


102 000661 


103 


000672 


104 


000703 


112 


000710 


113 


000732 


114 


000756 


115 


001043 


116 


001066 


. 119 


001163 


120 


001174 


124 


001175 


129 


001200 


131 


001207 



handout 



pfgu.list 



get__ring_ 

iox_$detaoh_^ioob 

lox~$3eek_key 



LINE LOG 
49 000132 
61 000176 
70 OOO3O6 
89 000373 
96 000617 
107 000704 
117 001124 



LINE LOG 
50 000142 
62 000201 
78 000307 
90 000376 
97 000630 
109 000707 
118 001152 



put .list 



arch comp ins >udd>F15D>s1>handout>gw. archive 

component updated; 03/19/80 1043. 9 system id: 311.14.0 



COMPILATIOH LISTING OF SEGMENT put 

Compiled bys Multics PL/I Compilers Release 25o, of February 18, 1980 
Compiled at; Honeywell LISD Phoenix, System M 
Compiled on: 03/19/80 1039*0 mst Wed 
Options: map 

Command interface to the put_^find_gate_ gate entrypolnts */ 

Modified on June 12, 1979 by R. Frommer to produce better diagnostic messages. */ 

; proc? 

/» DECLARATIOHS «/ 

ME char (4) varying 
nargs fixed bin; 
argl fixed bin (21) 
(first name, last nai 
code 'fixed bin ("55) 
arg ohar (argl) based (argp); 
argp ptri 

1 emp__struc, 

2 soc^seo no pic "(9)9", 
2 manlger-pio . "(9)9" , 
2 mail station ohar (3), 
2 salary fixed dec (8, 2); 



cu_$arg_ptr entry (fixed bin, ptr, fixed bin (21), fixed bin (35)); 

ou3]$arg~count entry (fixed bin); 
(com err", ioa ) entry options (variable); 
(puffin? gat 6"$ find, put find gate $put) entry 

(chaF (I5T, chir (15), 1 8truc"Eure ,"2 plo "(9)9" member, 2 pic "(9)9" member » 
2 char (3) member, 2 fixed dec (8, 2) member, fixed bin (35)); 
cv_deo_check_ entry (ohar(*), fixed bin(35)) returns (fixed' bin(35)); 

ME s "find"} I 
call ou_$arg count (nargs); j 
if nargs "s 5 then do; ! 

call com err (error__table__$wrong__no_^of__args, ME,. 

"•/"Correct invocation" f ind""First~name Last|_name") ; 

return; ~ 

end; 

call cu_$arg_ptr (1, argp, argl, code); 
if argl > 15 then do; 

call com__err__ (error__table_$bigarg, ME, "*a exceeds 15 characters,", arg); 

return; 

end J 

else first name = arg; 



1 
1 


/ 






•J 
J 


1 


It 




c 
J 




ft 




t 
1 




a 
0 




Q 


del 

VJ X 


in 


U\<r J> 


1 1 

Q 1 




1 c 


Hnl 


1 9 


Hnl 
uC X 


1 U 


UwX 




Hnl 


1 0 




17 




1ft 




1Q 




9n 

cU 


Hnl 

QOJL 


0 1 


Hnl 


ec 




23 


uCX 


24 


del 




Hnl 


26 


del 


27 




28 




29 


del 


30 




31 




32 




33 




34 




35 




36 




37 




38 




39 




40 




41 




42 




43 





\0} 



14 call ou $arg ptr (2, argp, argl, code); 

15 if argl*'> IS'then do; 

16 . oall oom_err_ (error_table_$blgarK( ME» ""a exceeds 15 oharaoters.", arg); 

17 return; - - - — 

18 end; 

19 else last name s arg; 
50 

51 /* Initialize emp struo prior to calling the gate entrypoint */ 

52 

53 SCO sec no, manager, salary s 0; 

51 raalT station s •••«; 

55 

56 call put find gate $find (last name» first namCf emp struc, code); 

57 if code a 1 this is a special case «/ tHen 

58 call com err (0, ME, "You don't have proper access on the fields in the employee file."); 

59 else if code O^then call com err (code, ME); 

60 else call ioa (""["s'';SOCIAL SECURITY NUMBER « *i 

61 "]*[*s*;MANAGER»S SOCIAl SECURITY NUMBER a "l 

62 "l^C^s*; MAIL STATION s "a 

63 "]*t*s*;3ALARY s $*i 

61 *]", (soc_sec_no a 0), soc sec_no, 

65 — - (j^anager s H) , manager, 

66 (mail station a ""), mail^station, 

67 (salary a 0), salary); " 

68 return; /« END OF find PROCEDURE •/ 

69 . 

70 put: entry (); 
71 

72 ME a "put"; 

73 call ou $arg count (nargs); 

71 if nargi "B then do| 

75 call com err (error_table_$wrong no of^args, ME, 

76 ""/Horreot invocation: put FlrsT^name Last_naroe Employee *s_ss^no Manager *s^ss_no Mail_Statlon Salary") 

77 return; 

78 end; 
79 

80 /• OBTAIN SIX REQUIRED ARGUMENTS »/ 
81 

82 call ou $arg__ptr (1, argp, argli oode); 

83 if argl"'> 15 then do; 

81 call oom_err_ (errdr^table_$blgarg, ME, "^a", arg); 

85 return; - ~ - — 

86 end; 

87 else first name a arg; 
88 

89 call cu $arg ptr (2, argp, argl, code); 

90 if argr'> 15~then do; 

91 call com err__ (error__table_$bigarg, ME, "*a", arg); 

92 return; - - — — 

93 end; 

91 else last name a arg; 

95 " ^ 

96 I I call ou $arg ptr (3, argp, argl, oode); 

97 if argl""*a 9'*l verify (arg, "0123156789") *« 0 then do; 



handotii 



put.iistr 
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96 oall oom_err (0, ME, **'^a Is not a suitable social security number for "a.**, 

99 arg, last^name) ; 

100 return; " 

101 end; i 

102 else soc sec no = ov dec cheok_(arg, code); 

103 " " " " 

104 oall cu $arg ptr (4, argp, argl, code); 

105 if argl'^s g"! verify (arg, "0123456789") *« 0 then do; 

106 call oom__err_^ (0, ME, '""a is not a suitable social .security number for "a's manager.", arg, last_name); 

107 return; ~ 

108 end; 

109 else manager a ov dec check (arg, code); 

110 - - « 

111 call cu $arg_ptr (5f argp, argl, code); 

112 if argl"*= 3 then do; 

113 oall- Qom err (0, HE, ""a Is not a suitable 3-oharaoter mall drop.**, arg); 

114 return; " " j 

115 end; 

116 else mail station c arg; 

117 "" 

118 oall cu $arg_ptr (6, argp, argl, code); 

119 , 

120 on fixedoverflow, size begin: 

121 call com err_ (0, NE, " a is not a proper salary, it must resemble 999999*99*'f arg); 
122! goto bot'Eoro;'" 

123 end; 

124 - salary a ov deo_oheck_(arg, code); 

129 if code '^8 9 then do;"" 

126 oall oom err_ (0, NE, "''a is not a proper salary. It must resemble 999999*99'*» arg); 

127 goto bottom 

128 end; 
129 

130 oall put find gate $put (last name, first^naae, emp_struo, oode); 

131 if oode « 1 tHen oall oom err~ (0^ ME, '*You lack acoess on one or more of the fields in the database."); 

132 else if oode 0 then oaTl oom_err_ (oode, HE); 

133 else oall ioa ("Record writtenT") 

131* ■ " 

135 bottoms 

136 return; 
137 

138 end find; 



han^ou^ 
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SOURCE FILES USED IN THIS COMPILATION. 



LINE NUMBER DATE MODIFIED NAME 

0 07/19/79 1109.5 put.pll 



PATHNAME 

>udd>F 1 5D>Student_0 1 >put . pi 1 



I NAMES DECURED IN THIS C0HPILATION. 



IDENTIFIER 

1 1 ; 1 . .1 


OFFSET 

11 . . ■ ■ ■ 


LOG 


STORAGE CLASS 


DATA TYPE 


NAMES DECLARED DY DECLARE 


STATEMENT. 




1 


ME 




000100 


automatic 


varying ohar(4) 


arg 






based 


char 


argl 




UUU lU J 


automatic 


fixed bln(21,0) 






000116 


Bufioniat Ic 

BM WIHCi V 




code 




000114 


automatic 


fixed bin(35»0) 


oom__err^ 




000020 


constant 


entry 


ou $arg oount 




uuuvl 1 o 


constant 


entry 


cu~$arg~ptr 




0000 u 


constant 


■entry 


ov~dec^cheolc__ 






constant 


entry 


emp 8 true 




000120 


automatic 


structure 


error table Ibigarg 




000010 


evfcernsl static 


fixed blnf^^.O) 


error tablo iwrong no of arga 


000012 


external static 


fixed bin(35>0) 


flrst^name 




000104 


automatic ' 


char ( 15) 


flxedoverflow 




000132 


stack reference 


condition 


loa 




000022 


constant 


entry 


las'E name 




AAA 4 <a A 

000110 


automatic 


ohardS) 


mail~8tation 


4(18) 


000120 


automatic 


oharO) 


manager 


2(09) 


000120 


automatic 


ploture(9) 


nargs 




000102 


automatic 


fixed bin(17»0) 


put find_gate_$flnd 




000024 


constant 


entry 


pu t^f i nd^B a t e~$ pu t 




000026 


constant 


entry 


salary " 


6 


000120 


automatic 


fixed deo(8e2) 


aize 




000140 


stack reference 


condition 


soo_seo_^no 


1 : ■ ■ 


000120 


automatic 


plcture(9) 



NAME DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED, 

conversion 000000 stack reference condition 

NAMES DECLARED BY EXPLICIT CONTEXT. 

bottom 002025 constant label 

find 000315 constant entry 

put 000753 constant entry 



NAME DECLARED BY CONTEXT OR IMPLICATION. 

verify bulltin function 



handout 



put .list 



ATTRIBUTES AND REFERENCES 
C* indicates a set context) 



del 8 set ref 31» 34» 40» 46« 57* 59» 72« 75« 84» 

91» 98« 106» 113» 121* 126* 131» 132» 
unaligned del I3 set ref 40» 43 46» 49 84« 87 91* 94 

97 98* 102» 105 106» 109» 113* 116 121* 124» 126» 
del 10 set ref 38» 39 40 40 43 44» 45 46 46 49 82» 

83 84 84 87 89» 90 91 91 94 96« 97 97 98 98 102 

102 104» 105 105 106 106 109 109 111* 112 113 113 

116 118« 121 121 124 124 126 126 
del 14 set ref 38» 40 43 44» «I6 49 82» 84 87 89* 91 

94 96* 97 98 102 104» 105 106 109 111* 113 116 

118* 121 124 126 
del 12 set ref 38» 44« 56« 57 59 59» 82» 89» 96» 

102» 104* t09» 111» 118« 124» 125 130* 131 132 

132» 

external del 25 ref 34 40 46 57 59 75 84 91 98 106 

113 121 126 131 132 
external del 24 ref 32 73 

external del 23 ref 38 44 82 89 96 104 111 118 

external del 29 ref 102 109 124 

level 1 unaligned del 15 set ref 56* 130* 

del 20 set ref 40» 46* 84* 91* 

del 20 set ref 34* 75* 

unaligned del 11 set ref 43* 56* 87* 130* 

del 21 ref 120 

external del 25 ref 60 133 

unaligned del 11 set ref 49* 56* 94« 98* 106* 130* 
level 2 packed unaligned del 15 set ref 54* 60 60* 
116« 

level 2 packed unaligned del 15 set ref 53* 60 60* 
109* 

del 9 set ref 32* 33 73* 74 

external del 26 ref 56 

external del 26 ref 130 

level 2 del 15 set ref 53* 60 60« 124« 

dol 21 ref 120 

level 2 packed unaligned del 15 set ref 53* 60 60* 
102* 



del 21 



del 135 ref 122 127 
external del 4 
external dol 70 



ref 97 105 
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STORAGE REQUIREMENTS FOR THIS PROGRAM. 



Start 
Length 



Object 
0 

2610 



BLOCK NAME 
find 

on unit on line 120 



Text Link Symbol ' Defs 

0 2364 2U16 2237 

2237 32 155 125 

STACK SIZE TYPE 

226 external procedure 
98 on unit 



STORAGE FOR AUTOMATIC VARIABLES. 



STACK FRAME 
find 



LOC 
000100 
000102 
000103 
OOOIQlt 
000110 
000114 
000116 
000120 



IDENTIFIER 
ME 

nargs 
argl 

first name 
lastjname 
code"" 
argp 

emp_atruo 



Static 
2374 
0 

WHY NONQlilCK/WHO SHARES STACK FRAME 
is an external procedure. 



BLOCK NAME 

find 

find 

find 

find 

find 

find 

find 

find 



THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM, 
r__e as r ne as call^ext__out^de8c 

enable ext_entry iflt__entry 

THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. 

com err ou $arg count 

ioa~ pulf_fin3_gafee_$find 

THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. 
error_tabLe_$bigarg error_table_$wrong__no_of_arg» 



oall^ext out 
unpaok^pTo 



cu $arg ptr 
pul[^fln3_gate_,$put 



return 



tr9 ext 



cv dec check 



LINE 


LOC 


LINE 


LOG 


LINE LOC 


LINE 


LOG 


LINE 


LOC 


LINE 


LOC 


LINE 


LOC 


4 


000314 


31 


000322 


32 000326 


33 


000331 


34 


000337 


36 


000363 


38 


000364 


39 


000403 


40 


000406 


41 000440 


. 43 


000441 


44 


000445 


45 


000464 


46 


000467 


47 


000521 


49 


000522 


53 000526 


54 


000541 


56 


000544 


57 


000561 


59 


000612 


60 


000632 


68 


000751 


70 000752 


72 


000760 


73 


000764 


74 


000773 


75 


000776 


77 


001022 


82 


001023 


83 001042 


84 


001045 


85 


001076 


87 


001077 


89 


001103 


90 


001122 


91 


001125 


92 001156 


94 


001157 


96 


001163 


97 


001202 


98 


001224 


100 


001263 


102 


001264 


104 001315 


105 


001334 


106 


001356 


107 


001415 


109 


001416 


111 


001447 


112 


001466 


113 001471 


114 


001524 


116 


001525 


118 


001531 


120 


001550 


121 


001564 


122 


001620 


120 001623 


124 


001630 


125 


001661 


126 


001663 


127 


001717 


130 


001720 


131 


001735 


132 001766 


133 


002006 


135 002025 









put flnd_sate .aim aroh comp In: >udd>:F15D>s1>handout>gw. archive 

" component updated: 03/18/80 1609*5 system Id: 34-1 I.C 



Gate procedure written by Raphael Fromroer of Marketing Education 

to be used in conjunction with the "find" and "put" command 

procedures. Transfers control to the pll procedure "put__flnd_gat9^utll_. 

include gate^maoros 
gate Info ~ 

gate" find, put find gate utll , find, 4 
gate put ,put_Tlnd__gate_utll_J7put , M 

end — — - - 



put_find__gate_.li8t 



arch oomp ins >udd>F15D>a1>handout>gw. archive 

component updated^ 03/18/80 1609.5 system id: 3H-1i|.C 



ASSEMBLY LISTING OF SEGMENT >udd>F15D>s1>put find gate .aim 
ASSEMBLED ON: 03/18/80 1557.0 mst Tue" 

OPTIONS USED: list 

ASSEMBLED BY: ALN Version 6.2, June 1979 

ASSEMBLER CREATED: 01/28/80 0927.8 mst Non 



000000 



1 
2 
3 
li 
5 
1-1 
1-2 
1-3 
1-*l 
1-5 
1-6 
1-7 
1-8 
1-9 
1-10 
1-11 
1-12 
1-13 
l-m 
1-15 
1-16 
1-17 
1-18 
1-19 
1-20 
1-21 



Gate procedure written by Raphael Frommer of Marketing Education 

to be used In conjunction with the '*flnd** and "put** command 

procedures. Transfers control to the pll procedure **put_flnd_gate_utll_. 

Include gate macros 



** BEGIN INCLUDE FILE ...... gate macros. Incl .aim 

°* Last modified 6/77 by N. Morris, B. Greenberg, & T. VanVleck 

** Modified 741212 by PG to inhibit while computing virtual CPU time 

** This file contains several macros used when generating gate segments. 
** The major macros that are defined are: 

K 
tf 
ft 
ff 
(f 
ff 
ff 
ff 
ft 



gate^info general setup code for normal gates 

hardcore gate^lnfo general setup code for hardcore gates 

bad__dlr_Handler setup and handler for bad dir condition (goes at bottom) 
bad~dir~handler__entry entrypoint for above (goes at top) 

gate "to define a normal gate 

hgate to define a hardcore gate 

fgate to define a fast hardcore gate 



maolist off 



handout 



put__flnd_gate_.iist 
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1-22 




1-23 




1-24 




1-25 




1-26 




1-27 




1-28 


■t 


1-29 




1-30 




1-31 




1-32 


1 


1-33 


2 


1-34 


3 


1-35 


4 


1-36 


5 


1-37 


6 


1-38 


7 


1-39 


8 


1-40 


9 


1-41 


10 


1-42 


11 


1-43 


12 


1-44 


13 


1-45 


14 


1-46 


15 


1-47 




1-48 




1-49 




1-50 




1-51 




1-52 




1-53 




1-54 




1-55 


1 


1-56 


2 


1-57 


3 


1-58 


4 


1-59 


5 


1-60 


0 


i!-Ol 




1-62 




1-63 




1-64 




1-65 




1-66 




1-67 
1-68 




1-69 


1 


1-70 


2 


1-71 


3 


1-72 


«« 


1-73 


5 


1-74 


IS 


il-75 



hgate 



gatename»proo«dure, entry, args( ,bad_dir_trap) 



** HGATE - define a hardcore gate entry 

H 

n 

N 

" The entrypoint gatename la defined In the gate segment. If args 
" la nonzero, the number of arguments passed to gatename must be 
■* equal to args. When gatename Is called, It will in turn call 
" prooedurelentry. 



macro 



hgate 

gentry &1,&4*2,&1.t 
tsx2 .setup 
&s&5fbad dlr trap&[ tsxO .set dlr trap 



short^oall &2$&3(api0) 
eppbp" Ipl&l.t 

oreturn_oode 
restore" 
linkage 



tra 

macllst 
use 
even 
macllst 



&1.t: 



&end 



bss 

macllst 



on, save 
.6 

restore 



FGATE • define a fast hardcore gate 

N 



macro 



&end 



fgate 



fgate 
» gentry 
epplp 
tra 



gatename , procedure , entry 



&1,0,0 
•my lp,« 
&2$I3 



macllst off 



** GATE - define a normal gate entry 

N 
H 



gate 



gatename , procedure ,entr y , arga 



macro 



gate . 

gentry &1,&4»2,0 
tsx2 .setup 
short_oall &2$&3(aplO) 
return 

madllst restore 



liiniouE"^ 



put_.^lna_gate *<st 



'age 



7 1-76 &end 
1-77 
1-78 



TjinioiaF" put_**ind_gate_.list Pigi 





1-80 


maoro 


gentry 






1-81 




ni8cl Ist 


on . aavft 


2 


1-82 






&1 


J 


1-83 




inaol ist 


restore 




1-81 






transfer veotor 


J 
6 


1-85 
1-86 


&1: 


IH n w ffti ■& 0 V 


WIS f OQ V V 


7 


1-87 




tra 


&1.e 


8 


1-88 




maollst 


restore 


9 


1-89 




use 


main 


10 


1-90 




maolist 


on, save 


11 


1-91 




zero 




12 


1-92 


& 1 • G s 






13 


1-93 
1-9'* 
1-95 


&end 









1-96 




1-97 




1-98 


1 


1-99 


2 


ItIOO 




ItIOI 




1-102 


5 


1-103 


6 


1t104 


1 


1-105 


8 


1-106 


9 


1-107 


10 


1-108 


11 


1-109 


12 


1-110 


13 


1-111 




1-112 


15 


1-113 


16 


1-114 


17 


1-1 15 


18 


1-116 


19 


1-117 


20 


1-118 


21 


1-119 


22 


1-120 


23 


1-121 


24 


1-122 


25 


1-123 


26 


1-124 


27 


1-125 


28 


1-126 


29 


1-127 


30 


1-128 


31 


1-129 


32 


1-130 


33 


1-131 




1-132 


35 

J*/ 


1-133 


36 


1-134 


37 


1-135 


38 


1-136 


39 


1-137 


40 


1-138 


41 


1-139 


42 


1-140 


43 


1-141 


44 


1-142 


45 


1-143 


46 


1-144 


47 


1-145 


48 


1-146 


49 


1-147 


50 


1-148 



" HARDCORE__GATE__INFO - general Info for hardcore gates 
macro 

roaclist 
name &1 

8taok_header 

8taok_fraroe 

restore 



hardcore_ gate__info 
roaclist " on (lave 



Include 
include 



•tv end: 



•my^lp: 



* actors 



maolist 
eject 

tempd 
teropd 
tempd 
tempd 
tempd 
temp 
tempd 
tempd 

use 
equ 

tra 

use 

segdef 
vfd 

use 

segdef 
even 
bss 

Join 

use 
Join 

use 

maclist 
elect 

epplp 
maclist 
gate actor 



• temp 

• label variab|Le<0) 
•timel7«time2 
•unwinder argllst(O) 
•on unite?) 
.pf7«entryp 
•vfl arglistCB) 
•mopfr 

transfer veotbr 
•tv begin** ! 

"* I 
•actor I 

tv_end 

•tv end 

14/T»-.tv_begln) 
main 
•my_lp 
.2 

/text/ tran8fer_veotor,tv_end, main 

linkage 
/link/linkage 

main 

restore 



.my lp,» 
res'Core 



handoui 



put_find_gate_^llsf 



"Page 



51 


1r149 






52 


1r150 


•setup: 


push 


53 


1r151 




epplp 




11-152 




sprllp 


55 








56 


1-154 




nacl ist 


57 


1-155 




gchaok 


58 


I-I56 






5Q 


1-157 




Inhibit 


60 


1-158 




rod 


61 


1-159 




sbaq 


62 


1-160 




ataq 


63 


1-161 




sbaq 


64 


1-162 




staa 


65 


1-163 




Ida 


66 


1-164 




sta 


67 


1-165 




inhibit 


68 


1-166 




tra 


69 


1-167 






70 


1-168 




maollat 


71 


1-169 




ajeot 


72 


1-170 






73 


1-171 


ereturn 


oodas 


74 


1-172 




" inhibit 


75 


1-173 




rool 


76 


1-174 




sbao 


77 


1-175 




ataq 


78 


1-176 




sbaq 


79 

6 7 


1-177 




adaq 


80 


1-17B 




staq 


81 


1-179 




Idaq 


82 


1-180 




sbaa 


83 


1-181 




sbaq 


84 


1-182 




adaq 


85 


1-18'^ 




staq 


86 


1-184 




Ida 


87 
88 


1-185 
1-186 




abla 
asa 


89 


1-187 




aos 


90 


1-188 




inhibit 


91 


1-189 






92 


1-190 




return 


93 

94 


1-191 
1-192 




maolist 


95 


1-193 




eject 


96 


1-194 




maolist 


97 


1-195 


&end 





1-196 



1-197 



.my lp,» 

s p I s t aok_f r ame • 1 p_pt r 
restore 



on <■».><♦><♦><■»•><■».><+><+><+><♦><+><♦><+> 
sys lnfo$olook_,* oaloulate times 
pds7opu time " 
• timel 

pds$vlrtual_delta 
•tlme2 " 
pdslpage waits 
.pf " 

off <-><-><-><-><-><-><-><-><-><-><-><-> 
0,2 

Irestore 



on <♦><♦><♦><♦><♦><♦><♦><♦><♦><♦><♦><♦> 

sys lnfo$olook_,* oaloulate times 

pdslFopu^^tlme " 

otemp ~ 

otlmel 

bpiO 

bpIO 

•temp 

pds$vlrtual__delta 
.tlmeZ " 
bpt2 
bp|2 

pd8$page waits 

.pf " 
bp|4 

bpl5 

off <-><-><-><-><-><-><-><-><-><-><-><-> 



I 

restore 
restore 



1 

2 
3 
II 
5 
6 
7 
8 
9 

10 
11 
12 
13 

15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 



1-198 
1-199 
1-200 
1-201 
1-202 
1-203 
1-201 
1-205 
1-206 
1-207 
1-208 
1-209 
1-210 
1-211 
1-212 
1-213 
1-2m 
1-215 
1-216 
1-217 
1-218 
1-219 
1-220 
1-221 
1-222 
1-223 
1-221 
1-225 
1-226 
1-227 
1-228 
1-229 
1-230 
U231 
1-232 
1-233 
1-231 



DAD DIR__HANDLER - oode to setup and handle bad_dir condition 
» " put thia after the lasf hgate macro 

macro bad dir_handler 

macTist'~ on, save 

include on^unlt 

use transfer vector 

.handler_^entry J 

~* tra .handler 
•handler restart entrys 

tra ~ .handler restart point 



use 

.set dir traps 
~ stxO 

mlr 

desc9a 

desc9a 

eppbp 

spribp 

eppbp 

spribp 

1x11 

sxll 

eaa 

sbla 

sta 

Ida 

orsa 

tra 



main 
•entryp 



save for restart 



().(pr),rill(000) 
0,0 

.on unit, 10*1 

.ba3_dir_name 

•on_unit7on unit.name 

•handler en"Ery 

.on unitTon unit .body 

•baBf^dir^deso 

.on_unitTon unit .size 

•on unit " set up on-unit for bad^dir, 

sp|IT,du •• make rel to sp 

sp I stack frame. on unit rel ptrs 

stack frame.oondi'Fion_l»it ,71 

apt stack frame .flag word 

0,0 



string bad_dir_ 



handoiti 



put_find_gate^.llst 
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3»» 1t235 
1-236 
\r237 
1-238 
1-239 

.2»»1 

i-2»»3 
I-2MH 
l-2t»5 
1-21(6 
1-217 
\'2HB 
I-2»I9 
1-250 
1-251 
1-252 
1-253 
1-254 
1-255 
1-256 
1-257 
1-258 
1-259 
1-260 
1-261 
1-262. 
"263 
^26»» 
1-265 
1-266 
1-267 
•268 
1-269 
•270 
1-271 
1-272 
1-273 
1-271 
1-275 
1-276 
1-277 
1-278 
1-279 
•280 
1-281 
1-282 
1-283 
1-281 
81 1-285 
.1-286 
,1-287 



ohandlers epaq 
cana 
tze 
zero 

push 
epplp 
IdxO 
eppbp 
Ida 
cana 
tze 
/ eppap 
' eppap 
spr lap 
spribp 
eppbp 
spribp 
eppbp 
apribp 
fid 
staq 
oall 

•continue signal! 
"Ida 
ata 

return 



spto 
-l.dl 
»+2 
0 



verify that call came from ring 0 
check ring number in AL 



go way kid you bother me 



.ray lp,» 

aptlJ 
ap|2,0» 

bpl stack frame. prev^sp 



*| ok, we like the call 
get display 



from another ring? 
if not, back to signal^ 
Get mcptr " 



save in gate frame 



so700000,dl 
.continue signal 
ap|2,« 
aplOf* 
bpl .mcptr 
,label_variable+2 
.handler restart entry 
.label variable " 
.label~*variable 
•unwincTer argli8t<t-2 
«1b21,dl *" 
•unwinder arglist 

unwinder^funwinder_( •unwinder^arglist) 



zolOOOOOgdu 
apt 10, • 



,handler_restart_polnts 
" epaq " 
cana 
tze 
zero 
epplp 
lea 
ansa 
eppbp 
spribp 
fid 
staq 

short oall 



"IMb 

set continue bit 



check that call came from ring 0 



Vanish on»unlt 



spto 
-ledl 
•♦2 
1 

•my lp,» 

8taok^frame*oondltion_bit'«>1 ,dl 
spt stack^f rame . f lag^Word 
•mcptr ~ ~ 
• vfl arglist-f2 
■ 1b2ir,dl 
•vfl arglist 
veFlfy_lock$verify_lock bad dir( •vfl^arglist) 



&end 



IdxO .entryp 

eppap 8pistaok_frame^arg_ptr,* 

tra 0,0 " " retry the call 

maclist restore 
eject 

maclist restore 





1-288 


GATE_ 


INFO - general, info for non-hardcore gates 




1-289 










1-290 


naoro 


gate info 




1 


1-291 




maclTst 


on, save 


2 


1-292 




use 


transfer vector 


3 


1-293 




tra 


•actor " 


4 


1-294 








5 


1-295 




use 


main 


6 


1-296 




Join 


/text/transfer_vector,roain 


7 


1-297 








8 


1-298 




maclist 


restore 


9 


1-299 




eject 




10 


1-300 








11 


1-301 


« actor : 


getlp 




12 


1-302 




maclist 


restore 


13 


1-303 




gate actor 


14 


1-304 








15 


1-305 




maclist 


restore 


16 


1-306 




eject 




17 


1-307 








18 


1-308 


.setup: 


push 




19 


1-309 




getlp 




20 


1-310 




maclist 


restore 


21 


1-311 




gcheck 




22 


1-312 




tra 


0,2 


23 


1-313 








24 


1-314 




maclist 


restore 


25 


1-315 




eject 




26 


1-316 








27 


1-317 




maclist 


restore 


28 


1-318 
1-319 
1-320 


&end 







handout 



put_flnd_gate__.llst 
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1t-321 " Macro to generate gate aotor* 

1r322 

1*-323 maoro gate actor 

1 1-32'( maclTst on,9ave 

2 1*-325 eppbp api2,« 

3 10326. Ida bpi-1 get length of string 

4 1>327 tze .return name zero length s> get name 

5 1'-328 " . 

6 1-329 adla 1,dl Include length of acc 

7 1-330 stz Bp\H,» 

8 1-331 tsxO .aearoh defa 

9 1-332 

10 1-333 crape (pr ,rl) ,(pr ,rl) compare name 

11 1-334 deac9a bp|-1(3),al 

12 1-335 deao9a bb|0,al 

13 1-336 tnz .next def 

U 1-337 

15 1-338 Ida ab|1,2 return location 

16 1-339 arl 18 

17 l-aJtO sta aptH,* 

18 1-3*11 

19 1-3M2 short return 
' 20 1-3M3 

21 .return name: 

22 1-345 ~ 1x13 api4,« get location 

23 1-346 taxO .search defs. 

24 1-347 

25 1-348 ompx3 abt1,2 compare locStlon 

26 1-349 tnz .next def 

27 1-350 

28 1-351 Ida bb|0 get length of name 

29 1-352 arl 27 

30 1-353 sta bpl-1 set length of varying string 

31 1-354 mlr (pr ,rl) ,(pr ,rl) return string 

32 1-355 deso9a bb|0(1),al 

33 1-356 deso9a bplO.al 

34 1-357 

35 1-358 short return 

36 1-359 

37 1-360 .search defs: 

38 1-361 ~ eax2 0 

39 1-362 eppab lp|0»« ab -> defs 

40 1-363 odefs loop: 

41 1-364 " 1x11 ab|1,2 get class and flags 

42 1-365 cmpxl xo400000,du must be class 0 

43 1-366 tnz .next def 

44 ,1-367 

45 i1-368 ldx7 ab|2,2 

46 1-369 eppbb ab|0,7 bb -> name 

,47 1-370 tra 0,0 , test definition 

,48 1-371 .next def: 

49 1-372 " ldx2 abt0»2 chain to next def 

50 1-373 tnz .defs loop 
,51 ,1-374 



52 1-375 short return 

53 1-376 
1-377 Aend 
1-378 
1-379 





1-380 


" Miscellaneous mi 




1-381 








1-382 


BH Ci V B V 


a check 


1 


* J J 




us n %j J. X 9 w 


2 


1-381 




Idxl 


J 


fl J U ^ 






1} 


1 J o u 




cmpxl 


K 
J 


1-^87 




tze 


6 


1-388 






1 


1-^8Q 




call 


8 


1-390 




oot 


g 


1 — J ^ » 






10 






even 




1-"^Q^ 
1 — J? J 


signal argllst: 


1 £ 


1 

• ■• J y** 




zero 


1 ^ 






zero 




1 -9Q6 




arg 


1 9 


1-707 








1 -"^Qft 
1 — jyO 




arg 


17 


1-399 




arg 


IB 


1-400 






19 


1-101 




string 


20 


1-402 






21 


1-40') 

8 — "t V J 








1-404 


.no gate_, 
&en7 


error % 




l.unc; 

1 — •t-U3 

1-unft 

B — HUU 






1-407 


naoro 


string 


1 


l-UOft 

1 — 


o&lnames 










acl 




1-1110 


.&1deaos 




It 


1-411 




vfd 


5 


1-412 






6 


1-413 
1-414 


&end 






1^415 


macro 


eject 


1 


1-416 




mac 11 St 


2 


1-417 







on, save 
-2,2 

.no gate error 
ap|?5 

.no gate error 



get number of args expeoted 
if zero, none or doesn't matter 
oompare against number given 
args match, call procedure 



signal $signal (signal arglist) 
0 " 



2,4 
2,0 

.gate^errorname 



.gate^errordeso 



gate^error 



"*1" 

o9/525»o27/&11 
on g save 



handout' 



put_find_gate TsT 



>age 



■5T 



3 



000000 Oa OOOOOil 7100 00 



1-1118 &end 
1-1119 

1.i|20 " END INCLUDE FILE gate maoros.lnol.alm 

1-121 ^ 1 

6 gate Info 

use " transfer vector 

tra .actor *" 

■ use ■■■ maln^' 
join /text/trainsfer_veotor,fflain 



handout 



put_^ind^gate_«li»t 
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00000J4 


aa 


7 00046 


2721 


20 


.aotor g 


getlp 






0000015 


aa 


0 00002 


3521 


20 




eppbp 


apJ2»* 




000006 


aa 


2 77777 


2351 


00 




Ida 


bp|-1 


get length of string 


000007 


Oa 


000023 


6000 


00 




tze 


•return^^name 


zero length s> get name 


000010 


aa 


000001 


0350 


07 




adla 


1,dl 


include length of aoo 


000011 


aa 


0 000011 


4501 


20 




stz 


ap|4,» 




000012 


Oa 


000036 


7000 


00 




tsxO 


•aearoh defa 




000013 


aa 


0 00140 


1065 


40 




cmpo 


(pr,rl) ,(pr,rl) 


compare name 


0000 u 


aa 


277777 


600005 




desc9a 


bp|-1(3)»al 




000015 


aa 


300000 


000005 




deso9a 


bb|0,al 




000016 


Oa 


000046 


6010 


00 




tnz 


•next^^def 




000017 


aa 


1 00001 


2351 


12 




Ida 


abtlf2 


return location 


000020 


aa 


000022 


7710 


00 




arl 


18 




000021 


aa 


0 00004 


7551 


20 




8ta 


ap|4,» 




000022 


aa 


7 00044 


7101 


20 




ahortj 


return 




000023 










ereturn^ 


name: 






000023 


aa 


0 00004 


7231 


20 




■ 1x13 


ap|4pa 


get location 


0000211 


Oa 


000036 


7000 


00 




tsxO 


• search^^defa 




000025 


aa 


1 00001 


1031 


12 




oinpxS 


abM»2 


compare location 


00002IS 


Oa 


000046 


6010 


00 




tnz 


•next^def 




000027 


aa 


3 00000 


2351 


00 




Ida 


bbtO 


get length of name 


000030 


aa 


000033 


7710 


00 




arl 


27 




000031 


aa 


2 77777 


7551 


00 




ata 


bpl-1 


set length of varying si 


000032 


aa 


0 00140 


1005 


40 




nlr 


(pr ,rl) f (pr irl) 


return string 


000033 


aa 


300000 


200005 




deao9tt 


bblOCO.al 




000034 


aa 


200000 


000005 




desoia 


bpio,al 




000035 


aa 


7 00044 


7101 


20 




ahortj 


return 




000036 










• 8earoh_ 


defs: 






000036 


aa. 


000000 


6220 


00 




eax2 


0 




000037 


aa 


4 00000 


3515 


20 




eppab 


ipio,* 


ab •> defs 


OOOOMO 










•defs loops 






00001(0 


aa 


1 00001 


7211 


12 




1x11 


ab| 1,2 


get class and flags 




a A 




1010 


03 




ompxl 


■o400000gdu 


nuafc bA olass 0 


000042 


Oa 


000046 


6010 


00 




tnz 


•next_def 




0000U3 


aa 


1 00002 


2271 


12 




ldx7 


abl2,2 




000044 


aa 


1 00000 


3535 


17 




eppbb 


abt0,7 


bb -> name 


000045 


aa 


000000 


7100 


10 




tra 


0,0 


test definition 


000046 










•next dof: 






000046 


aa 


1 00000 


2221 


12 




ldx2 


ab|0,2 


chain to next def 


000047 


Oa 


000040 


6010 


00 




tnz 


•defa^loop 




000050 


aa 


7 00044 


7101 


20 




ahort__i 


return 





pu t__#in<l _gate^ ^ 1 i at 
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nnnnm 










000052 


aa 


7 00040 


2721 20 




000053 


aa 


7 00046 


2721 20 


getlp 


00005*» 


aa 


777776 


2210 12 


Idxl 


000055 


Oa 


000102 


6000 00 


tze 


00005*S 


aa 


0 00000 


1011 00 


ompxl 


000057 


Oa 


000102 


6000 00 


txe 


000060 


aa 


6 00000 


2541 00 


oall 


nnnnft i 


UB 








000062 


i|a 


4 00010 


3521 20 




000063 


aa 


6 00040 


7531 00 




00006U 


aa 


7 00036 


6701 20 




000065 


aa 


6 00000 


1731 00 




000066 


aa 


6 00040 


0731 00 




000067 


aa 


000000 


000000 


oot 










even 


0000(0 








Signal arsiiL8vs 


000070 


aa 


000002 


000004 


*" zero 


000071 


aa 


000002 


000000 


zero 


000072 


Oa 


000076 


0000 00 


arg 


000073 


aa 


000000 


0000 00 


arg 


00007 « 


Oa 


000101 


0000 00 


arg 


000075 


aa 


000000 


0000 00 


arg 










string 


nnnnt t\ 








•gabe errornainei 


000076 


aa 


147 141 


164 145 


*" aol 


000077 


aa 


137 145 


162 162 




000100 


aa 


157 162 


000 000 




000 1011 








•gate errordeaos 


000101 


aa 


525000 


000010 


vfd 


000102 








.no gate errors 


000102 


aa 


000000 


7100 12 


"■ " tra 



-2.2 

.no gate error 
.no gate error 



get number of args expected 
if zerOf none or doesn't matter 
compare against number given 
args match, oall procedure 



signal_$signal_( signal^arglist) 



2.* 

2,0 

• g ate^er ror name 

i 

•gate^errordes'o 

gate^error 
"8.*lJ««.«»*ror" 

99/525,027/10 
0,2 



kandout 



put__find 



gate, ^st 



■"igi ST 



0Q0002 
000002 
000111 
000112 
000112 
000113 
000114 
000115 
000116 



000001 



000001 










000001 


Oa 


000 lot 


7100 


00 


000103 


aa 


000010 


000000 


OOOIOli 










oooioa 


Oa 


000051 


7020 


00 


000105 


'ta 


It 00012 


3521 


20 


000106 


aa 


7 00036 6701 


20 


000107 


aa 


6 00030 


3701 


20 


000110 


aa 


7 00042 


7101 


20 



000002 

ba 000112 7100 00 

aa QObOlO 000000 

Oa 000051 7020 00 

4a 4 00014 3521 20 

aa 7 00036 6701 20 

aa 6 00030 3701 20 

aa 7 00042 7101 20 



find: 



puts 
put.es 



gate flndiput find^gate utii_,findi4 

segdef find "* " " 



tra flnd.e 

zero 4«2,0 

flnd.e; 

/ tax2 



.setup 

short^oaXl put^f lnd^gate_util_$f ind( api 0) 



return 

gate 
segdef 

tra 
zero 

t8X2 



put , i»ut_f Ind^gate^ut il_ , put , 4 
put 

put.e 
4«2,0 . 

•setup 



8hort_oa3.1 put^f ind_gate_util_$put( aPt 0) 



return 
end 



NO LITERALS 



NAME DEFINITIONS FOR ENTRY POINTS AND SEGDEFS 





5a 


A A n A A 

000003 


^ A A A A A 

000000 


0001«?1 


5a 


A A A A H A 

000032 


£ A A A A A 

600000 


000122 


aa. 


000000 


000000 , 


00012s 


55 


A A A A 4 A 

000012 


A A A A A A 

000002 


000121 


5a 


000002 


100003 '■ 


000125 


55 


000006 


0000 12 


000 1 26 


aa 


A 4 if A A 

016 160 


165 161 


000127 


aa 


137 116 


151i 156 


000130 


aa 


4 ll ll 4 A fV 

111 137 


4 Bm 4 fli 4 

117 111 


000131 


aa 


161 115 


137 000 


000132 


55 


000016 


000003 


000133 


Oa 


000002 


100000 


000131 


55 


000015 


000003 


000135 


aa 


003 160 


165 161 


000136 


55 


000023 


000012 


000 1 37 


Oa 


000001 


100000 


000110 


55 


000021 


000003 


000111 


aa 


001 116 


151 156 


000112 


aa 


111 000 


000 000 


000113 


55 


000002 


000016 


000111 


6a 


000000 


100002 


000115 


55 


000026 


000003 


000116 


aa 


Oil 163 


171 155 


000117 


aa 


112 157 


151 137 


000150 


aa 


161 111 


112 151 


000151 


aa 


115 000 


000 000 


DEFINI nONS 


HASH TABLE 




000152 


aa 


000000 


A A A A 4 ^ 

000015 


000153 


aa 


000000 


A A A A A A 

000000 


000151 


aa 


OOOOQiO 


000000 


000155 


5a 


000012 


000000 


000156 


aa 


OOOOGiO 


000000 


000157 


aa 


OOOOGiO 


000000 


000160 


aa 


000000 


000000 


000161 


5a 


000016 


000000 


000162 


5a 


00002!3 


000000 


000163 


aa 


000000 


000000 


000161 


aa 


OOOOCIO 


000000 


000165 


aa 


000000 


000000 


000166 


aa 


000000 


000000 


000167 


aa 


000000 


000000 


EXTERNAL NAMES 






000170 


aa 


023 160 


165 161 


000171 


aa 


137 116 


151 156 


000172 


a« 


111 137 


117 111 


000173 


aa 


161 115 


137 165 


000171 


aa 


161 151 


151 137 


000175 


aa 


007 163 


151 117 


000176 


aa 


156 111 


151 13? 



put 



find 



synbol^tabl* 



pu t_f ind_gat e_ut 11^ 



signal^ 



handout 



put_f ind__gate_ TaF 



'age 



15 



NO TRAP POINTER WORDS 



TYPE PAIR BLOCKS 



000177 


aa 


000004 


000000 


000200 


55 


000050 


000015 


000201 


aa 


000004 


000000 


000202 


55 


000050 


000021 


000203 


aa 


000004 


000000 


000204 


55 


000055 


000055 


000205 


aa 


000001 


000000 


000206 


aa 


000000 


000000 



INTERNAL EXPRESSION WORDS 

000207 5a 000057 000000 

000210 5a 000061 000000 

000211 5a 000063 000000 



LINKAGE INFORMATION 



000000 


aa 


000000 


000000 


000001 


Oa 


000120 


000000 


000002 


aa 


000000 


000000 


000003 


aa 


000000 


000000 


ooooou 


aa 


000000 


000000 


000005 


aa 


000000 


000000 


000006 


22 


000010 


000016 


000007 


a2 


000000 


000000 


000010 


9a 


777770 


0000 46 


oooom 


5r 


000071 


0000 00 


000012 


9a 


777766 


0000 16 


000013 


5a 


000070 


0000 00 


000011 


98 


77776H 


0000 16 


000015 


5a 


000067 


0000 00 



signal^! signal^ 

put_f lnd__gate_utll_J find 

put^f lnd_gate_utll_t put 



SYMBOL INFORMATION 



SYMBOL TABLE HEADER 



OQOOOO 
000001 



aa 
aa 



aa 
aa 
aa 



000002 aa 

000003 aa 
OOOOOt aa 
000005 aa 
000006 
000007 
000010 

000011 aa 

000012 aa 

000013 aa 

000014 aa 

000015 aa 

000016 aa 

000017 aa 

000020 aa 

000021 aa 

000022 aa 

000023 aa 

000024 aa 

000025 aa 

000026 aa 
000027 
000030 
000031 

000032 aa 

000033 aa 
000034 
000035 
000036 
000037 
000040 
000041 
000042 
000043 
000044 

000045 aa 

000046 aa 

000047 aa 

000050 aa 

000051 aa 

000052 aa 

000053 aa 
000054 
000055 
000056 
000057 

000060 aa 

000061 aa 

000062 aa 



aa 
aa 

aa- 



aa 
aa 
aa 
aa 

aa 
aa 
aa 
aa 

aa 



aa 
aa 
aa 
aa 



000000 
163171 
164162 
000000 
000000 
414344 
000000 
564756 
141154 
040040 
000024 
000034 
000044 
000002 
000064 
000000 
000000 
000000 
000134 
000064 
101114 
126145 
151157 
066056 
040112 
145040 
067071 
040040 
106162 
155145 
115105 
144155 
056141 
040040 
040040 
040040 
154151 
040040 
040040 
040040 
040040 
040040 
040040 
040040 
040040 
040040 
040040 
040040 
040040 
040040 
040040 



0000Q1 
155142, 
145145 
000004 
106730 
011300 
107027 
217737 
155040 
040040 
000040 
000040 
000100 
000002 
000000 
000143 
000117 
000130 
000117 
000000 
115040 
162163 
156040 
062054 
165156 
061071 
040040 
040040 
157155 
162056 
104141 
151156 
040040 
040040 
040040 
040040 
163164 
040040 
040040 
040040 
040040 
040040 
0400H0 
0400110 
040040 
040040 
040040 
040040 
040040 
040040 
040040 
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000063 
000064 
000065 
000066 
000067 
000070 
000071 
000072 
000073 
00007M 
000075 
000076 
000077 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000110 
000111 
000112 
000113 
000114 
000115 
000116 



aa 
aa 
aa 
aa 
aa 
aa 
aa 
aa 
aa 
aa 
aa 
aa 
aa 
aa 
aa 
aa 
aa 
a a 
aa 
aa 
aa 
aa 
aa 
aa 
aa 
aa 
aa 
aa 



040040 
000000 
000000 
000076 
063453 
000000 
564153 
000106 
057660 
000000 
053324 
076165 
076106 
104076 
076160 
137146 
144137 
164145 
141154 
076154 
076151 
154165 
076147 
145137 
143162 
056151 
154056 
155040 



040040 
000001 
000002 
000037 
431404 
107027 
400000 
000041 
372535 
105766 
600000 
144144 
061065 
163061 
165164 
151156 
147141 
137056 
155040 
144144 
156143 
144145 
141164 
155141 
157163 
156143 
141154 
040040 
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>ldd>inoludtt>gate_naoroa«ln«l.alm 
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HULTICS ASSEMBLY CROSS REFERENCE LISTING 



Value Symbol 

i| .aotor 

40 .defs loop 

101 .gate^errordeso 
76 .gate~errorname 
1|6 .next def 

102 .no gate_9rrpr 
23 .reTurn^name 
36 .searoh^ldefa 
51 .setup 

1 find 

, , 101 flnd.e 

4 naln 

2 put 
112 put.e 

put flnd__gate^utj.l^ 
aignal "* . " 

70 signal'arglist 

0 transfer veotQr 



Source file Line number 



put^find 

put^find' 

put~find' 

put__flnd^ 

put~f ind' 

put_f Ind" 

put_find^ 

put~find^ 

put find" 

put^find" 

put"" find" 

put~flnd" 

put find" 

puff ind" 

put'"f ind^ 

put'"find" 

put^find]; 

put""flnd' 



gate_! 
!8ate~2 
[gate~s 
'gate~? 
[gate^: 
gate"-! 
■gate"? 
■gate": 
'gate~: 
gate^s 
■gate~s 
"gate""s 
gate"": 
[gato~s 
'gate~: 
■gate"": 
■gate~8 
|gate~8 



6. 
6. 
6. 
6. 
6. 
6. 
6. 
6« 
6» 
1, 
7. 

!• 

8. 

I: 

6. 
6. 



7, 



7, 



9. 
8> 



NO FATAL ERRORS 
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component updated: 03/19/80 1044.0 system Id: 34-1 4. C 



1 
2 
: 3 
4» 
5« 
6« 

7« 
8» 
Si» 
10* 
11« 
12» 

13* 

14» 
15» 
16» 
17* 
18« 
1<>« 
20* 
21« 
22» 
23» 
24» 
2'>» 
2()» 
27 • 
2«» 
29* 
30« 
3I» 
32» 
3:i» 
34* 

3!>» 
36» 
3T« 
38» 
39* 
40* 
41» 
42» 
43« 



COMPILATION LISTING OF SEGMENT trans 

Compiled by: Multios PL/I Compiler ^ Release 25c, of February 18, 1980 

Compiled at: Honeywell LISD Phoenix, System M 

Compiled on: 03/19/80 1043 nst Wed 

Options: map 

trans: proc; 

/• 



Name: trans 

Th« trans command add8» counts, deletes, reads, and summarizes 
transactions resident in a message segment whose pathname is 
>udd>F15d>trans.ns. The amount of information it nay return and the 
ability to add "transactions" into the segment are governed by 
extended access. 



Usage 

trans key (args) 
where: 



1. key 



is one of the functions listed below. 



add, a 



Three 



count, c 



delete, d 



adds a transaction to the message segment, 
additional arguments must be 'furnished: 

1. part__narae 

16 characters or less 

2. unlt_prioe 

"not to exceed 9999*99 
3* how many sold 

" not^to exceed 99999 

The caller must have 'append* extended access to 
the segment trans.ms. 



returns the number of transactions (messages) in 
the segment. The caller must have status extended 
access to the segment trans.ms. 



deletes the "current" transaction. A transaction 
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4i|» 
45» 
M6» 
47* 

il8» 
it9« 

50» 
51» 
52» 

53* 
5i|» 

55» 
56» 
57» 
,58« 
59« 
60» 
61» 
62» 
63* 
6i|« 

65» 

66« 

67» 

«8» 

69» 

70» 

71* 

72" 

73» 

7*l» 

75* 

76" 

77" 

78" 

79" 

80" 

81" 

82" 

83" 

84" 

85" 

86" 

87" 

88" 

89" 

90" 

91" 

92" 

93" 

91""/ 

95 /• 



read, r 



2. 



args 



Is made current by some previous read operation. 
If the last transaction read was not added by the 
caller ,i the caller must have delete extended 
access on trans .ms. Otherwise, the caller must at 
least have *own* extended aooesis. 



reads one or more transactions, 
argument is furnished, it must 
following: 



If an additional 
be one of the 



V. all 



If user has *read* extended 
•very transaction Is dumped. 



acoess, 



If user has *own*, but not *read*, only 
*own* transactions are dumped. 



2. first 



If user has « read* extended acoess, the 
first transaction is dumi 



3» last 



next 



If user has *own*, but not *read*, the 
first *own* transabtion is dumped. 

analogous to * trans read first* 



If user has <' read* extended access, the 
next transaction in trans. ms is dumped. 

If user has *own*<| but not *read*, the 
bailer's next transabtion is dumped. 



5. 

6. 



prior 

analogous to "trans rejad next* 

< argument mi9sing> 

reads the current message. 



summary, s 



If the caller has *read* extended access, the 
dollar amount grand total of all transactions in 
the segment is returned. If the oaller has *own*, 
but not *read*, the dollars amount grand total of 
*own* transactions is returned' ihstead. 



is dependent upon key as documented above. 
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96 
97 
98, 
99 
100 
101 
102 
103 
1 

3 
Ki 
5 
6 
7 
8 

, 9 
10 
111 
IS 

13 
in 

15 

ir» 

17 
IB 
19 
IQit 
105 
106 
107 
108 
109 
110 
111 
112 
113 
111 



del ME int9r'n9l static options (constant) ohar (5) inlt ("trans"); 

del TARGET SEGMENT Int statlo options (constant) char (8) Inlt ( "trans. ms") ; 

del TARGET^DIR Int static options (constant) char (9) inlt (">udd>F15d") j 

del (error ■Eabl«_$moderr , error__table_$no_message, arror table_$blgarg, 

\ error"'t«ble"ibad_arg, erroF__table__$too^raany__arga, error table__$wrong__no_,of_args) 
! ext static Tixed""bln (35)i - — - - - 

deli areap pt;r| . i . . 

del (argp, m»ssagep, arg list ptr) ptr; 

/* BEGIH INCLUDE FILE . 7 . iii5eg_r«turn__args_v3.1nol,pl1 •/ 

/* Structure returned when message Is read from a message segment */ 



dot m»^arg_ptr ptr; 

dol 1 mseg r*»turn_args baaed (ma^arg^ptr) aligned # 
2 ms pfr ptr," " " 

2 ns^len fixed bin (1&)» 
2 aender Id char (32), 
2 level 'fixed bin, 
2 ms id bit (72), 
2 sender authorization bit (72) » 
2 aooe8s][dla88 bit (72); 



/* pointer to message */ 

/* length of message in bits */ 

/■ process-group ID of sender */ 

/* validation level of sender */ 

/* unique ID of message "/ 

/« aoeess authorization of message sender */ 

/* message aoeess olass */ 



/« END INCLUDE FILE 



mseg^return^ar g8_v3 • inol *pli */ 



115 
116 
\o(35))s 
117 
118 
119 
120 
121 
122 
123 
12l| 
125 
126 
127 
128 



dol (code, binary number^sold) bin (35); 

dol index fixed l»in; " 

dol message^segment^lopen entry (ohar (*)» ohar (*), fixed bin, fixed bin (35)); 

del message^segment^^iclose entry (fixed bin, f ixed .|>in (35)); 

del message'segment $get message count index entfjr (fixed bin, fixed bin, fixed bin (35)); 

dol me88age''segment~'$add'"index entry (Tlxed bin, ptr, fixed bin (24), bit (72) aligned, bin (35)); 

del raessage''segment''$delete Index entry (fixed bin, bit (72) aligned, fixed bin (35));> 

dol me88age''8egment''$read index entry (fixed bin,, pttr, bit (1) aligned, ptr, fixed bin (35)); 

dol me88age[||8egmenb~$inoremental_read_index entry (fixed bin, ptr, bit (2) aligned, bit (72) aligned, ptr, fixed bin (35) 

dol me88ag«_8egment_$own_read_index entry (fixed bin, ptr, bit (1) aligned, ptr, fixed bin (35)); 

dol me8sager8egment~$own~inoremental_read_index entry (fixed bin, ptr, bit (2) aligned, bit (72) aligned, ptr, fixed bin 

del 1 trans msg based (ms arg^ptr »> mseg^return^args.ms^ptr) , /* Sometimes pointed to by messagep */ 

2 wldgeli name ohar (1^), ~ ~ " • • "" 

2 unit price pic "$$$l9*v99", 

2 how m«ny sold fixed dec (5, 0), 

2 totil cost pic "(7)l9.v99"| 
del grand 1;otal dollars Internal static pic "(7)$9oV99"; 
del sllenf bltTl) internal statlo Inlt ("0"b); 
del read option (2:6) ohar (5) Internal statlo options (constant) 

inlt~("all", "next", "prior", "first", "last"); 
dol current message id bit (72) Internal statlo aligned inlt ("0"b); 
dol looping^index fixed bin (17) inlt (1); 
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129 del own bit (1) Init ("0"b); 

130 del read^optlons Internal statlo options (oonstant) char (121) 



131 Init^C^Your read options ar«: 

132 trans read 

133 trans read all 
1311 trans read next 

135 trans read prior 

136 trans read first 

137 trans read last")} 



138 del (com err_, ioa ) entry options (variable); 

139 del ou f arg_count~"entry (fixed bin)j 

ItO dol cu^itarg ptr entry (fixed bin, ptr, fixed bin(21), fixed bin (35)); 

111 dol ou'larg-list ptr entry (ptr); 

142 dol ou'^arg^ptr rel entry (fixed bin, ptr, fixed bin(21), fixed bin (35)* ptr); 

1»13 dol nargs fTxed"*bln, argl fixed bin(21); 

141 dol arg ohar (argl) based (argp); 

145 dol auto area area (2048); /* Should be large enough for any and all allooated struql^ures */ 

146 del string ohar (24); 

147 del date time entry (fixed bin (71). ohar (•)); 

148 dol oloolc enTry returns (fixed bin (71)); 

149 dol ov_deo_oheok entry (ohar (•), fixed bin (35)) rftturna (fixed bin (35)); 

150 dol oonversion oondition; 

.151 dol binary_time faxed bin (71)! 

152 dol alternate binary time bit (72) aligned based; 

153 del (size, add?) builTin; 

154 dol message oount;; 

155 dol iox $oontrol entry (ptr, ohar(*), ptr, fixed bin(35))s 

156 dol iox^iuser io oxt atatlo ptr; 

157 ~ /• 
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158 /" COMMON BEGINNING POINT •/ 

159 

160 oall ou_$arg__oount (narg3); 

161 if (fjargs = Q-then do; 

162 oall oom_err_ (error table_$wrong_no^of arga, "trans", 

163 ""/You have not invoiced 'trana* properly, 

164 Please type 'trans key (args)*, where *key* is either 

165 »add«, 'deleted 'read', 'auroinary*, or 'count'. 

166 'args* is a function of what key has been supplied*"); 

167 return! 

168 end; 

169 call ou $arg_ptr (1, argp, argl, code); 

170 call ou^iarg lisfc^ptr (arg__llst_ptr) ; /• Sets an automatio pointer •/ 

171 if arg s "adH" | arg a •»a"'"then""oall trans add; 

172 else if arg > "delete" I arg a "d" then call trans delete; 

173 else if arg « "read" \ arg = "r" then oall trans_read; 

174 else if arg s "summary" t arg a "s" then oall tr'ans^^summary; 

175 else if arg ■ "count" \ arg s "o" then oall trans oount; 

176 else call oo«^err__ (error^table_$bad_arg, MEt argT; 

177 return; " - - - 

178 /• 



179 trana^^readj prooj 



t80: , " . 

181 If nargs > 2 then do; 

182 call oom err (error table_$too many argSi NE» read options); 

183 return; - ~ - ~ 
18M end} 

185. 

186 /• Cloal of the following do group la to set loopln'g^lndex to 

187* 1f2,3f<l,5ff or 6 for a subsequent *goto*. ~ •/ I 

188 If nargs « 2 then do; 

189 call ou $arg ptr rel (2, argp, argl, oodei arg list ptr); • 

190 do looping index"* 2 to 6 while (arg read opt lon'^( looping Index))} 

191 end; * " 

y92 . ' ■:.),:■ 

193 If looping Index > 7 then do; 

19H oall ooin_err_^ (error_table^$bad arg, ME, read_,optlons) ; 

195 return; - ~ . 

196 end} , ■■■ 

197 ands 
198 

199 oall iaessage^segtnent_$open (TARGET^DIR, TARGET^SEGMENT, Index, oode) ; 

200 .If oode *■ ©""then doT " .. 

201 oall opm err (oode, ME, «ivmile attempting to open ''a>''a,", TARQET_0IR, TARGET SEGMENT); 

202 ■ . . return; - ■" ,. 

203 end; 
20*1 ■ ■ ■■ 

205 aroiap « addr (auto^area); 

206 - allooate mseg return args In (auto area) iset (ns_arg_ptr) ; 

207 /* No need to worry about freeing above, beoause area Itself Is automatlo */ 

208 goto read label (looping Index); 

209 " " 

210 read label (1)t a 

211 'trans read' «/ 

212 if ourrent message id s **0"b then do; 

213 oall oom errj~f0, ME, "There is no Current message.**); 
2TM return; ~ - "" 

215 ■ ' ■ • ■' and; ■ 

216 else do; 

217 . n . ... .. ■ . b ■ 

218 oall message_segment_$inorero(9ntal read^lndex (index, areap, **00^b, 

219 ourrent^message^ld , ms_arg pXr, oode); /* User must have *r* «ixtended aooess */ 

220 if oode ■ error table $moder!r tHen oall message segment $own inoremental read Index (index, 

221 areap, '*00'b, ourrent message^ld, ms_arg ptr, oodeT; " 

222 if oode *■ 0 then do; "* 

223 oall oom err (oode, ME); 

224 oall mes8age~segment_$olose (Index, oode); 

225 I return; - : ■ 

226 end ; 
227 

228 oall print message (); 

229 ■ . I . I , i - ' : 

230 oall message segment $olose (Index, oode); 

231 return; *" • " 

232 end; i 

' ' " ' > ; . ■ - ■ 
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233 read lab*al (2): 

23M r < /« "trana read all* »/ 

235 oall me5aage_segnient_$read__lndex (Index, areap, "Cb /» from the firat 

236 m8_arg ptrj code) j 

237 if code 5 eFror_table_$moderr then doj 

238 oall measage aegment $own__read index 

239 (index I'^areap, ^Cb j^ma^arg ptr, oode); 
2M0 If code s error__table_$inoderr then do; 

211 call coni__err_ (oode, ME)j 

242 oall meaaage'segment icloae (index, oode); 

2M3 return; — — . . 

2«H» end; 

245 own s »1"b; 

246 end; 

247 if oode s error table $no meaaage then do; 

248 oall com err (oode,'~ME, "'"CYou have no'*:No] messages In ''a>^a.*', own, TARGET^DIR, TARQEIT^^SEGMENT) ; 

249 oall measage~segment_$olose (index, oode); " " 

250 return; - - 

251 end; 

252 

253 if own then do; 

254 

255 do while (oode error table $no message); 

256 - - - 

257 call print^meaaage (); 

258 current neaaage_ld a na^arg ptr -> maeg return arga.ma^id; 

259 call message segment lown^lnoremental read index (index^ areap, "Ol^b /* next */, 

260 ourrent'~message'*id , is arg ptr, eode)7 

261 end; "* *" ^ - 
262 

263 «nd; 

264 else do; 

265 

266 do while (oode ''m error table $no message); 

267 ~ ~ ~ 

268 call print^meaaage (); 

269 our rent meaaage id s na arg ptr -> naeg return args.ms id; 

270 oall neaaage^aegment linoremental read_Tndex <Tndex, aFeap, "01"b /* next */, 

271 current mes8age~'id, ms^aifg^p^r, oode); 

272 end ; , ~ " 

273 «nd; 
274 

275 

276 oall message^segment $olose (index, oode); 

277 return; " 
276 read label (:3)s 

279 " /■ 'trans read next* •/ 

280 

281 if current message id ■ "QMb then do; 

282 oall oom err "(0, ME, "There is no ourrent message.**); 

283 return; " ~ 

284 end; 

285 else do; 

286 

287 call message_aegment_$inoremental_read_index (index, areap, **01**b. 
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288 ourrent^message Id, ros__arg ptr, oode); 

289 iiC code s error table_$moderr tHen call message segment $own_lncrementa]L_read_index ( Index , 

290 areap, "'Ol'b, cuFrent_mes8age_ld, ras__arg_p"Er , oodeT; — — 

291 If code a error_table_$raoderr then do; 

292 call com err_ (code, ME); * 

293 call message segment $olose (Index, code); 
29H return; — 

295 end; 

296 if code a error_table_$no message then do; 

297 call oom_err__ (code/~NE, "There is no next message.**); 

298 call message'segment $ol08e ( Index » code); 

299 return; *" 

300 end; 
301 

302 call print message (); 

303 ~ 

30M ourrent_message_id s ms arg^ptr -> ma id; /* Update what is now the current msg */ 

305 call message_8egment_$cTose''( index, code); 

306 return; — - 

307 end; 

308 read label (M): 

309 " /* 'trans read prior* •/ 
310 

311 if current message id s *'0**b then do; 

312 call com errj~(0, HE, ''There la no current message.**); 

313 return; ~ 
31t end; 

315 else do; 

316 

317 oall message_8egment_$ incremental read^index (index, areap, **10**b, 

318 current, message id, ms arg pfr» code);! 

319 if code ■ erFor table__$modeFr tHen oall mesisage segment $own_incremental read index (index, 

320 areap, '•10'b, ourrent__measage__^ld, ms_erg__pTr, codeT; — — 

321 if code a error table $moderr then^do; " 

322 call com err_ (code, HE); 

323 call message^segment dolose (iiidex, ooide); 
321 return; ~ 

325 end; I 

326 if code m error table $no__message then do; { 

327 call com err (code, ME, ''There is no prior message.**); 

328 c^ll message^^eegment $olose ( index » code); 

329 return; " , 

330 end; 
331 

332 oall print message (); 
333 

33** ourrent_mes8age_id « ms arg ptr >> mseg^return args.ms id; /* Update what is now the current msg */ 

335 oall message segment $cTose (index, oode); " 

336 return; 

337 end; 

338 read label (5): 

339 'trans read first* •/ 

3MO 

311 call message Seg»ent_$read_index (index, areap, »0*>b /« the first «/, 

3112 ms__arg_ptr, code); 
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313 if code s error table__$moderr then doj 

311 call inessage_aegment_$own__read_inde)c (index, areap, ''0"b /• the first •/» 

3M5 !iis_arg_ptr J code) | ~ 

3t|6 If code""* error table__$moderr then do; 

3117 call coro_eFr_ (codet ME); 

3118 call roessage]||seBinent__$olose (index, oode); 
319 return; " 

350 end ; 

351 own = ••1"b; 
352: end; 

353 if code = error table_$no__me3Sage then do; 

35fi call oom_err_ (oode, ME, "^tYou have no*;Mo) messages in *a>*a.", own, TARGET__DIR, TARGET__SEGMEHT) ; 

355 call message segment $alo8e (index, oode); " " 

356 return; ~ ~ 
35T end; 

35£( 

359 call print message (); 

360 current message id • ms arg ptr -> nseg return args.ms id; /* For a possible 
3611 • ------- •5,.an»""read* in the future •/ 

362 call message^segroent^lolose (index, oode); 

363 return; ~ ■* 

364 read label (6): 

365 " /• 'trans read last* •/ 

366 

367 call message_8egment_$read_index (index, areap, "1"b /* the last */, 

36B ms arg ptr , oode) i " 

369 if oode's error table imoderr then do; 

370 oall message segment_$own_read_index (index, areap* "I'b /* the last 

371 im» arg ptr, oode); ~ 

372 own ■ "T^bj" 

373 end; 

374 if oode « error table Ino message then do; 

375 oall 00m err (codef^NE, "^CYou have no";No] messages in *a>*a.", own, TARGET.DIR, TARGET_SEGHENT) ; 

376 oall message'segment $olo8e (ind«x, oode); " " 

377 return; ~ ~ 

378 end; 

379 

380 oall print message C); 

381 current message id « ms arg ptr -> mseg return args.ms id; /* For a possible 
382» . "■ - - - - oj.|^3„3-g,^3j» jifi ^1,^ future •/ 

383 call message segment $olose ( index » oode); 

384 return; - 

385 end trans read; 

386 " /• 
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387 trans add: proo; 

388 If nargs **= i| then do; 

389 call com err__ (erroi'_table_$wrong_no of^args, ME, "Proper invocation : 

390 trans add widget__name unlt^prioe how^many^sold""') j"" 

391 return; ~ - - 

392 end; 

393 /* Assign the elements in the structure trans^insg one by one 

394 allocate trans msg in (auto area) set (messagep); 

395 call ou $arg pir rel (2, argp, argl, code, arg list ptr); 

396 if ttrgl'"> le^then do; 

397 call oom_err_ (error__table_$hlgarg, ME,- "Widget^name mustn't exceed 16 oharaotera*") ; 

398 return; - ~ — — — 

399 endj 

400 else messagep -> trans msg. widget name a arg; 
401 

402 call. cu_$arg_ptr_irel (3, argp, argl, code, arg__llst_ptr) ; 

403 on conversion begin; 

1(04 call com err (error table__$bad_arg, ME, "Unit price specified does not look something like 9999*99''); 

405 goto add^rfcturn^poinf; 

406 endi; 

407 messagep -> trans msg. unit price « arg; 

i|08 revert conversionf /•If we get here, conversion went fine »/ 

409 oallL ou $arg ptr rel (4, argp, arglj code, arg_llst_ptr) ; 

410 binary number sold = ov dec__check (arg, code)T 

411 if code "s 0 Then do; 

1(12 call oom_err_ (error_table_$bad_arg, HE, "Number sold could not be converted into an integer.**); 

413 return; ~ — — — 

414 endji . 

415 else if binary number^sold > 99999 then do; 

416 call com err_ (error_table_$bad_arg, ME, **Number sold exceeds 99999***); 

417 return; 

418 end,; 

419 else messagep -> trans msg. how many sold s binary_number sold; 

420 - - - 

421 messagep -> trans msg. total cost s messagep -> trans_nsg.unit__prloe * 

422 messagep f> '^rans msg .How many -sold; " "" 

423 — trans msg structure ready for addition to >udd>F15d> trans. 



425 cal]l message segment $open (TARGET^DIR^ TARGET_SEGMENT, index, code); 

426 If code Q-then doj ~ ~ 

427 call oom_err_ (code, ME, •'While attempting to open ''a>''a.", TARGET_DIR, TARGET^SEGMENT); 

428 return; ~ - — 

429 end; 

430 binary time & clock (); /" Need a unique id for message id, hence clock */ 

431 call message segmen'E $add index (index, messagep, 36 * sTze (messagep ->~'trans msg), 

432 addr (binary time) -5 alternate binary time, code); " 

433 if code '^s 0 then~call com_err (code, ME, ''While attempting to add a transaction.**); 

434 else do; 

435 current message id s addr (binary time) «> alternate binary time; 

436 call da'Ee time '"((current message~^id) , string); ~ ~ 

437 call ioa "("Transaction a^ded at *a", string); 

438 end; 
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il39 oall message segment $olose ( Index » oode); 

ilHO add return point; " ~ 

" end trans add; 
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443 trans delete: proc; 

445 if narga *» 1 then do; 

446 oall com err (error table $wrong no of args, ME, "Proper invooation: 

447 trans delete «).--"----- 

448 return; 

449 end; 

450 If current message Id s "O^b then do; 

451 oall com err "(0, ME, "There Is no current transaotlon to delete. 

452 Try some kind of read Tirst."); 

453 return; 

454 end; 

455 else do; 

456 oall message segment $open (TARGET DIR, TARGET SEGMENT, Index, code); 

457 if code *» 0"then doj " " 

458 oall oom err (oode, ME, "While attempting to open ''a>''a.", TARGET DIR, TARGET SEGMENT); 

459 return; ~ "* *" 

460 end; 

461 oal.1 message segment $delete index (index, current message id, code); 

462 if oode o 0 IPhen do;"* ~ 

463 current message id s "O^b; 

464 oall ioa ( "Tr an saot ion deleted,**) ; 

465 end; 

466 else call oom err (code, ME. **llhile attempting to delete the current message.**); 

467 call message segment $olose ( index i oode); 

468 endg - 

469 end trans delete; 

470 " /* 



171 trans_suraioarys proo; 
li?:) del trans entry options C variable); 



47!> if nargs "a 1 then do; 

476 call oom err_^ (error_table__$urong^no of args» ME* "Proper invocation: 

477 trans summary"); " " " " — — — 

478 return; 

479 end; 

480 /* We can not tolerate a quit, so ... */ 

481 call iox_$control (lox_$user lo, "quit disable", null (), code); 

482 silent a "fb; " " 

483 grand total dollars = 0; 
484 

485 call trans ("read", "all"); 

486 

487 call ioa ("Grand total * "a", grand total dollars); 

488 " - - 

489 silent s "0"b; 

490 grand total dollars a 0; 

491 7* NoiTsafe to unmask quits */ 

492 oall iox $oontrol (iox $u8er io, "quit enable", null (), oode); 

493 " - ~ - 

494 end trans summary; 

495 " /• 
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496 trans count: proo; 

498 /* User must have status extended aooess on trans. ros */ 



499 

500 if nargs ''s 1 then do; 

501 call com err (error table $wrong no of args, ME, ^'Proper Invocation: 

502 trans oouint"); - - - »- - — - 

503 return J 

504 end; 

505 

506 call message segment_$open (TARGET DIR, TARGET SEGMENT, Index, code); 

507 If code *a 0~then do; ~ 

508 call com err (bode, ME, "While attempting to open ''a>*a.", TARGET DIR, TARGET SEGMENT); 

509 return; ~ ~ "~ 

510 end; 
511 

512 call message segment $get_message_oount index (index, message count, code); 

513 if code s 0 ^hen call loa" ("There are "^d messages in '^a**, message oount, TARGET SEGMENT); 

514 else call com err (code,~ME); 

515 " - 

516 call message segment dolose (index, oode); 

517 

518 end trans oount; 

519 *" /• 
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520 print messages proo Oj 

521 " 

522 Can tally dollars OR print transaction info */ 

523 

524 call date time ((ms arg ptr -> ros id), string); 

525 if "silent then oall"loa" ("At "aj'^a sold ''d "a,*/ at a total cost of *a, (unit price s "a)", 

526 string, ms arg ptr -> mseg return args.sender^id, how many_sold, widget^name, total^oost, unit^price); 

527 else grand total dollars « gran? total'dollars * total ooslE; ~* " " 

528 _ - - - 

529 end print message; 

530 

531 bottom of trans j 

532 " " 

533 end trans; 
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SOURCE FILES USED IN THIS COMPILATION, 

LINE NUMBER DATE MODIFIED NAME PATHNAME 

0 03/11/80 1122.9 trans. pll >user dlr dir>F15D>Student 01>trans.pl1 

104 1 08/03/77 1651.9 maeg_r«fcurn__args__v3-tnol,pl1 >ldd>Tnolude>maeg_return_arga_v3.inol.pl1 
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NAMES DECLARED IH THIS COMPILATION, 
IDENTIFIEIl OFFSET LOC STORAGE CLASS DATA TYPE 



NAMES DECLARED BY DECLARE STATEMENT c 

ME 000062 constant 



char(5) 



TARGET_DI1R 

TARGET__SEOMENT 

addr 

alternate_blnary_^time 
areap 

arg 

arg llst^^ptr 
argT " 



00005M constant 
000060 constant 



based 
000100 automatic 

based 

000106 automatic 
000120 automatic 



ohar(9) 
ohar(8) 

builtln function 

bit(72) 

pointer 

char 

pointer 

fixed bln(21,0) 



argp 

auto__area 

bin ar y_^number_^»old 

blnariTtimtt 
clock_J" 
code " 



000102 auiomatlc 

000122 automatic 
000113 automatic 
004130 automatic 
000072 constant 
000112 automatic 



pointer 

area(2048) 
fixed bln(35,0) 
fixed bln(71,0) 
entry 

fixed blnC35»0) 



com err 



000054 constant 



entry 



conversion 
cu__$arg__oount 
cu__iarg__3Llst ptr 
cu~$arg~ptr 
cu^laV-g ptr rel 
currenfnessage Id 



000000 stack reference condition 



000060 constant 
000064 constant 
000062 constant 
000066 constant 



entry 
entry 
entry 
entry 



000014 internal static blt(72) 



cv dec oheck__ 
date^tTme " 
error table $bad arg 



000074 constant entry 
000070 constant entry 
000024 external static fixed bln(35,0) 



ATTRIBUTES AND REFERENCES 
(* indicates a set context) 



Initial unaligned del 96 set ref 176» 182* 194« 201* 
213* 223* 241» 248* 282» 292* 297* 312» 322* 327» 
347» 354« 375* 389» 397» 404« 412» 416» 427» 433* 
446* 451« 458« 466* 476« 501* 508» 514» 

initial unaligned del 98 set ref 199* 201» 248» 354* 
375* 425» 427» 456» 458* 506« 508* 

initial unaligned del 97 set ref 199» 201» 248» 354» 
375» 425» 427* 456« 458* 506» 508» 513» 

del 153 ref 205 431 435 

del 152 set ref 431* 435 

del 102 set ref 205» 218« ^20» 233» 238» 259* 270» 

287* 289* 317» 319» 338» 344* 364» 370» 
unaligned del 144 set ref 171 171 172 172 173 173 

174 174 175 175 176* 190 400 407 410» 
del 103 set ref 170» 189» 395* 402* 409* 

del 143 set ref 169» 171 171 172 172 173 173 174 174 

175 175 176 176 189» 190 395» 396 400 402* 407 
409» 410 410 

del 103 set ref 169» 171 171 172 172 173 173 174 174 

175 175 176 189* 190 395» 400 402» 407 409» 410 
del 145 set ref 145« 205 206 394 
del 105 set ref 410* 415 419 
del 151 set ref 430* 431 435 
external del 148 ref 430 

del 105 set ref 169* 189* 199» 200 201* 218» 220 
220» 222 223* 224* 230» 233^ 237 238» 240 241* 
242» 247 248» 249* 255 259* 266 270» 276* 287» 289 
289« 291 292» 293* 296 297» 298» 305» 317» 319 
319« 321 322» 323* 326 327* 328« 335» 338» 343 
344« 346 347« 348* 353 354» 355» 362» 364* 369 
370* 374 375» 376» 383» 395» 402* 409» 410» 411 
425» 426 427» 431* 433 433* 439» 456* 457 458* 
461« 462 466« 467» 481* 492» 506» 507 508* 512* 
513 514» 516* 

external del 138 ref 162 176 182 194 201 213 223 241 
248 282 292 297 312 322 327 347 354 375 389 397 
404 412 416 427 433 446 451 458 466 476 501 508 
514 

del 150 ref 403 408 

external del 139 ref 160 

external del 141 ref 170 

external del 140 ref 169 

external del 142 ref 189 395 402 409 

initial del 127 set ref 210 218» 220« 258» 259» 269* 

270« 278 287» 289* 304» 308 317" 319" 334» 360» 

381» 435* 436 450 461» 463» 
external del 149 ref 410 
external del 147 ref 436 524 
del 99 set ref 176* 194« 404* 412* 416* 
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error_table_$bigarg 
error__table_$moderr 
error__table_$no__ne38age 
error~table_$tao_many_argSi 
error_table $wrong__no~of__args 
grand_total'"dollars ~ "* 
how_many__soTd 6 
index ~ 



000022 external static fixed bin(35,0) 
000016 external static fixed bin(35»0) 
000020 external static fixed bin(35,0) 
000026 external static fixed bin(35,0) 
000030 external static fixed bin(35,0) 
000010 internal static picture(ll) 

based fixed deo(5,0) 

0001 m automatic- fixed bin(17,0) 



ioa 

iox'~$control 
iox~$user_io 
looping_index 
message~count 

message_seginent_^$add_index 
me8sage~'seginent3close 



000056 constant 
000076 constant 
000100 external static 
000115 automatic 
004132 automatic 
000040 constant 
000034 constant 



$delete index 000042 constant 
iget^message^count index 

"* 00(J036 constant 

message segmental incremental read index 

"" "■ 0^0046 constant 

$open 000032 constant 

'$own_increroental read index 

TjiOOOS? constant 
$own read^index 000050 constant 
'$rea7 index 000044 constant 
~~ 000104 automatic 



message_segment_ 
message^segment^ 



message segment 
message^segment' 



mesaage_segment 
message_segment] 
messagep 



ms__arg_ptr 



ms_ld 
ras_ptr 

mseg return args 
nargs ~ 
own 

read_option 
read_options 
sender id 
silent- 
size 
string 
total_co8t 

trans 
trans rosg 
unit^price 

widget_name 



entry 
entry 
pointer 

fixed bin(17,0) 
fixed bin(17|0) 
entry 
entry 

entry 

entry 

entry 
entry 

entry 
entry 
entry 
pointer 





000110 


automatic 


pointer 


14 




based 


blt(72) 






based 


pointer 






based 


structure 




000117 


automatic 


fixed bin(17,0) 




000116 


automatic 


bit(l) 




000045 


constant 


ohar(5) 




000006 


constant 


char(121) 


3 




based 


ohar(32) 




000013 


internal static 


bit(l) 






builtin function 




004122 


automatic 


char (24) 


10 




based 


pidture(ll) 




000102 


constant 


entry 






based 


structure 


4 




based 


picture(8) 






based 


char(16) 
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del 99 set ref 397* 

del 99 ref 220 237 240 289 291 319 321 343 346 369 
del 99 ref 247 255 266 296 326 353 374 
del 99 set ref 182» 

del 99 set ref 162» 389* 446» 476» 501« 

unaligned del 123 set ref 483« 487» 490» 527* 527 

level 2 del 118 set ref 419* 421 525* 

del 106 set ref 199» 218* 220» 224« 230» 233* 238« 
242« 249* 259* 270» 276* 287* 289* 293« 298» 305» 
317» 319* 323» 328* 335* 338* 344» 348* 355» 362» 
364* 370» 376« 383« 425* 431* 439* 456» 461» 467* 
506» 512» 516» 

external del 138 ref 437 464 487 513 525 

external del 155 ref 481 492 

del 156 set ref 481» 492« 

initial del 128 set ref 128» 190« 190» 193 208 
del 154 set ref 512* 513» 
external del 111 ref 431 

external del 109 ref 224 230 242 249 276 293 298 305 

323 328 335 348 355 362 376 383 439 467 516 
external del 112 ref 461 

external del 110 ref 512 

external del 114 ref 218 270 287 317 
external del 108 ref 199 425 456 506 

external del 116 ref 220 259 289 319 
external del 115 ref 238 344 370 
external del 113 ref 233 338 364 
del 103 set ref 394» 400 407 419 421 421 421 431* 
431 

del 1-7 set ref 206* 218* 220« 233* 238* 258 259* 
269 270» 287* 289* 304 317* 319* 334 338* 344* 360 
364» 370» 381 524 525 525 525 525 525 527 

level 2 del 1-9 ref 258 269 304 334 360 381 524 

level 2 del 1-9 ref 525 525 525 525 527 

level 1 del 1-9 set ref 206 

del 143 set ref 160* 161 181 188 388 445 475 500 
initial unaligned del 129 set ref 129* 245* 248* 253 

351* 354» 372* 375* 
initial array unaligned del 125 ref 190 
initial unaligned del 130 set ref 182» 194« 
level 2 del 1-9 set ref 525* 

initial unaligned del 124 set ref 482* 489* 525 
del 153 ref 431 

unaligned del 146 set ref 436» 437* 524* 525* 
level 2 packed unaligned del 118 set ref 421* 525* 
527 

external del 473 ref 485 
level 1 unaligned del 118 set ref 394 431 
level 2 packed unaligned del 118 set ref 407* 421 
525* 

level 2 packed unaligned del 118 set ref 400* 525* 
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NAMES DECLARED BY EXPLICIT CONTEXT. 



add return point 

bo tI^o(n_o f _rr an s 

print message 

read_Tabel 

trans 

trans_add 

trans_couitit 

tran3_delete 

trana_read 

trans summary 



003165 
001025 
00M330 
000000 
000570 
002614 
001122 
003166 
001026 
003727 



constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 
constant 



NAMES DECLARED BY CONTEXT OR IMPLICATION. 

empty 

null 

STORAGE REQUIREMENTS FOR THIS PROGRAM. 



label 
label 
entry 
label 
entry 
entry 
entry 
entry 
entry 
entry 



bulltln function 
builtln function 



del 110 ref 105 
del 531 

Internal del 520 ref 228 257 268 302 332 359 380 

array(6) del 210 ref 208 

external del 1 

internal del 387 ref 171 

internal del 196 ref 175 

internal del 113 ref 172 

internal del 179 ref 173 

internal del 171 ref 171 



ref 115 

ref 181 181 192 192 



Start 
Length 



Object 
0 

5162 



Tent 
0 

1501 



Link 
5021 
101 



Symbol 
5130 
315 



Defs 
1501 
322 



BLOCK NAME 
trans 

tran8_reaid 
trans add 

on unTt on line 103 
trans^delete 
trans~sunimary 
tran3_count 
print message 



STACK SIZE TYPE 

2555 external procedure 

internal procedure 

262 Internal procedure 
91 on unit 

Internal procedure 

internal procedure 

internal procedure 

internal procedure 



STORAGE FOR INTERNAL STATIC VARIABLES. 

LOC IDENTIFIER BLOCK NAME 

000010 grand total dollars trans 
000013 aJLlen^ ~ trans 

000011 ourrent_message_ld trans 

STORAGE FOR AUTOMATIC VARIABLES. 



Static 
5031 

6 

WHY NONQUICK/WHO SHARES STACK FRAME 
is an external procedure. 

shares stack frame of external procedure trans, 
enables or reverts conditions. 

shares stack frame of external procedure trans, 

shares stack frame of external procedure trans, 

shares stack frame of external procedure trans, 

shares stack frame of external procedure trans. 



STACK FRAME 
trans 



LOC IDENTIFIER 

000100 areap 
000102 argp 

000101 messagep 
000106 arg list ptr 

000110 ms irg p'Er 

000112 oo7e " 

000113 binary number sold 

000111 index " 

000115 looping index 

000116 own 

000117 nargs 
000120 argl 
000122 auto area 



BLOCK NAME 

trans 

trans 

trans 

trans 

trans 

trans 

trans 

trans 

trans 

trans 

trans 

trans 

trans 
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trans.list 



age 



"?7 



OOiiiaa string 
004130 blnary^tliue 
004132 inessage_count 

THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM, 
r e as call ext out__ddso oall ext out 

enaFle ext_intry int^entry 

empty ~ 



trans 
trans 
trans 



oall int this 
anyJEo_any__tr 



return 
unpack plo. 



tra ext 
alloo based 



THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM 
clock com err_ 

cu $arg ptr ou_f arg^pt^'^'^eJ- 



ou^Sarg^oount 
ov^dec cheeky 

ioa ~ iox_$controT message segfflent_$add_lndex 

message segment $delete Index message_segiaent_$get_^mes3age_oount_in7ex " " 
message''segment''$inoreroental read^index - — . - imgaaage_8egment__$open 

message~segment'~$own lncrementaljread_lndex me88age_segment__$own_read__lndex 
message~segnient~$rean__index trans - — — 

THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. 
error_table_$bad_arg error_table_$blgarg 



cu 4arg__list__ptr 
da'Ee time 



message_segment_$close 



error table $moderr 



error~table~$too~many_,args error_table__$Mrong_no__of_arg8 lox_$user_iO) 



error table $no message 



WARNING 235 ON LINE 407 

"arg*' has been converted from a string value to an arithmetio value. 
WARNING 235 ON LINE 436 

I'ourrent^message^id'* has been converted from a string value to an arithmetic value, 
WARNING 235 ON LINE 524 

••ms id" has been converted from a string value to an arithmetic value. 



LINE 


LOG 


LINE 


LOG 


LINE 


LOG 


LINE 


1 


000567 


128 


000575 


129 


000577 


145 


167 


000643 


169 


000644 


170 


000663 


171 


175 


000764 


176 


001001 


177 


001024 


531 


183 


001053 


188 


001054 


189 


001055 


190 


195 


001140 


199 


0011141 


200 


001166 


201 


208 


001234 


210 


0011236 


213 


001241 


214 


223 


001340 


224 


00 11 355 


225 


001366 


228 


237 


001423 


238 


001i427 


240 


001447 


241 


247 


001503 


248 


0011505 


249 


001544 


250 


258 


001566 


259 


001573 


261 


001615 


263 


270 


001631 


272 


001653 


276 


001654 


277 


287 


001715 


289 


001737 


291 


001765 


292 


297 


002021 


298 


002044 


299 


002055 


302 


308 


002075 


312 


002100 


313 


002124 


317 


323 


002215 


324 


002226 


326 


002227 


327 


334 


002267 


335 


002274 


336 


002304 


338 


347 


002356 


348 


002372 


349 


002403 


351 


356 


002460 


359 


002461 


360 


002462 


362 


370 


002525 


372 


002545 


374 


002547 


375 


381 


002625 


383 


002632 


384 


002642 


387 



LOG 


LINE 


LOG 


LINE 


LOG 


LINE 


LOG 


000601 


160 


000604 


161 


000613 


162 


000615 


000672 


172 


000715 


173 


000732 


17^ 


000747 


001025 


179 


001026 


181 


001027 


182 


001032 


001076 


191 


001112 


193 


001114 


194 


001117 


001170 


202 


001224 


205 


001225 


206 


001227 


001265 


218 


001266 


220 


001310 


222 


001336 


001367 


230 


001370 


231 


001401 


233 


001402 


001453 


242 


001467 


243 


001500 


245 


001501 


001555 


253 


001556 


255 


001561 


257 


001565 


001616 


266 


001617 


268 


001623 


269 


001624 


001664 


278 


001665 


282 


001670 


283 


001714 


001771 


293 


002005 


294 


002016 


296 


002017 


002056 


304 


002057 


305 


002064 


306 


002074 


002125 


319 


002147 


321 


002175 


322 


002201 


002231 


328 


002254 


329 


002265 


332 


002266 


002305 


343 


002326 


344 


002332 


346 


002352 


002404 


353 


002406 


354 


002410 


355 


002447 


002467 


363 


002477 


364 


002500 


369 


002521 


002553 


376 


002612 


377 


002623 


380 


002624 


002643 


388 


002651 


389 


002655 


391 


002700 



? nil 


n A o 7 n 1 








UUc f 3 1 


■30*7 


UUc ( 30 




nn97ft 1 
uuc 1 0 1 


*IUU 


uuc 1 DC 


iin? 

HUc 


nnP767 




UU jU 1 u 


11 Hilt 




una 


nn?nii7 

UU JVIH 1 






unA 




•? u ^ 


uu 3U f c> 


uin 

S 8 U 




U 1 1 


no's 1 "if 






U 1 ? 


nn^ 1 t\k 

UU3 1 uu 


H 1 3 




U 1 ft 


nn'? 17P 

uu 3 1 1 c 


1117 


nn^?ift 

uu J'" < u 


41 Q 














uu j£ f 1 


1197 


Kill 3^ f " 


•tt (J 


\JVJ333\i 


H 3U 


vU333 1 


43 1 




133 


003362 


^ 135 


003M12 


436 


003415 


437 


003432 


439 


003453 


440 


003465 


443 


003466 


»m5 


003»»67 


»m6 


003M72 


448 


003516 


450 


003517 


451 


003522 


453 


003546 


456 


003547 




003573 


H58 


003575 


459 


003631 


461 


003632 


462 


003645 


463 


003647 


464 


003652 


U65 


003670 


466 


003671 


467 


003715 


469 


003726 


471 


003727 


475 


003730 


476 


003733 




003757 


uei 


003760 


482 


004012 


483 


004015 


485 


004021 


487 


004041 


489 


004062 


«»90 


00H06M 


H92 


004070 


494 


004121 


496 


004122 


500 


004123 


501 


004126 


503 


004152 


506 


OOM153 


507 


004200 


508 


004202 


509 


004236 


512 


004237 


513 


004252 


514 


004301 


516 0011316 


518 00H327 


520 004330 


524 


004331 


525 


004352 


527 


004425 


529 


004453 



pfgu.list « . « . 1 

put.list . . » . . o . . . <, 0 o 9 

put f ind_gate_,alin , . . =. . o , 15 

put^f ind^gate~*»llst . o . . » . 16 

trans. list .7 39 



